(while:prn((= r read o(obj)f(fn(x y z)(if(> x y)(or=(o:+""x y z)(f(f(- x 5)y z)(f(- y 5)z x)(f(- z 5)x y)))z)))(*:r)(r)(r)))