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