(loop(format t"~A "(reduce(defun f(x y)(if(equal"."x)(lambda(z)(lambda(x)(f y(f z x))))(if(functionp x)(funcall x y)`(,x,y))))(asdf::split(read-line)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page