-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.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page