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