(loop(do((e()))((eq(set'c(read-char))#\ )(write-line(s())))(defun s(r)(if(atom(set'f(pop e)))f(setf a(pop f)_(format()(if(or(if(find c"*/")(find a"+-"))(if r(find a(case c(#\/"*/")(#\-"+-")))))"(~A~C~A)""~A~C~A")(cadr f)a(car f)))))(push(if(char< c #\0)`(,c,(s t),(s()))c)e)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).