-module a.
-export[m/0].
m()->case io:fread('',"~d~d")of{_,[A,B]}->io:format("~p
",[round((A+B*B/A)/4)]),m();_->0end.