-module a.
-export[m/0].
m()->case io:fread('',"~u") of eof->k;{ok,[N]}->P=1 bsl((N-1)rem 32),io:format("~p to ~p~n",[-P,P-1]),m() end.