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