#!/usr/bin/perl
@f=qw(- +);$c=char;print"#include <stdio.h>\nmain(){$c m[30000];$c*p=m;
";for(<>){s/[*\/]//g;s!([^+-.<>[\]\s]+ *)+!/*$&*/!g;s!([-+<>])\1*!'*'x
($1lt'<')."p$f[ord($1)/2%2]=".length($&).';'!ge;s/\./put$c(*p);/g;
s/,/*p=get$c();/g;s/\[/while(*p){/g;s/]/}/g;print}print"}\n"