(while((^(a b c)((^'_(print'b" "'c" "'a))(pa$ /(sqrt(* a b c)))0))#0=(read)#0##0#))