<>; # Translate to Perl and evaluate: eval join ';', map { s {(?=\b[a-z]\b)} '$'g; s {\b int} 'local'x; # local(izing) on stack until block ends s {(print.*)} {$1,"\n"}; $_ }