(while((^(a b\)(print(if(>(+ a\)b(- a\)(- b))1 0)))#0=(read)#0##0#))