z=#read
#(while(set! =(list(z)(z)(z)0))(format #t"~y"(inexact->exact(round(sqrt(apply *(map(lambda(x)(-(/(apply + =)2)x))=)))))))