(loop(setq a(/(read)2)b(sqrt(-(* a a)(read))))(format t"~a ~a~%"(- a b)(+ a b)))