-module m.
-export [m/0].
m()->try{ok,[N,B]}=io:fread('',"~d ~s"),io:format("~."++B++"B~n",[N]),m()catch _:_->m end.