-module a.
-export[m/0].
m()->case io:fread('',"~d")of{_,[N]}->io:format("~.16B
",[N]),m();_->0end.