(do('abs(r read))(#f)(do((a(+(r)0)'(- a b))(b(r)'(- b c))(c(r)'(- c d))(d(r)'(- d a)))((if(print a" "b" "c" "d)(= a d 0))))(print))