(defun f(x y z)(if(> x y)(if(> y z)(if(<(mod(- y x)10)5)(- z(mod(- z y)5)-5)y)(if(> z x)(if(>(- x y)5)(f(- z 5)x y)x)y))z))(loop(format t"~A "(f #1=(read)#1##1#)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).