(loop(with-input-from-string(s(princ(format()"~{~A~}"(map'list(lambda(c)(if(find c"+-*")(format()" ~C "c)c))(read-line)))))(do((a #1=(read s)(funcall #1#a #1#)))((not(listen s))(format t" = ~D
"a)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).