LOOP: print eval ( rewrite_perl lisp( myread ) ), $/; goto LOOP;