(while:prn(-:-(= a(/(read)2)b(sqrt:-(* a a)(read)))a)" "(+ a b))