(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)))))