(while(let*([e(regexp-replace-all #/\D/(read-line)" \\0 ")][p(open-input-string e)]'read[n'p])(guard,,(print e" = "n)(while'p => o(set! n(eval`(,o,n,'p)(current-module)))))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).