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