read()->
    case io:fread("","~d") of
        eof -> ok;
        {ok,[N]} ->
            io:format("~p~n",[abs(N)]),
        read()
    end.

main() ->
	read().