(loop(setf a(/(read)2)z(sqrt(-(* a a)(read))))(format t"~D ~D
"(- a z)(+ a z)))