(loop(format t"~D
"(round(+(/(expt(read)2)(set'b(read)))b)2)))