FizzBuzz

#!/usr/bin/env escript
%%! -smp enable -noshell

main(_) ->
    lists:foreach(
        fun(N) ->
            case {N rem 3, N rem 5} of
                {0,0} -> io:format("FizzBuzz~n");
                {0,_} -> io:format("Fizz~n");
                {_,0} -> io:format("Buzz~n");
                _     -> io:format("~p~n", [N])
            end
        end,
        lists:seq(1, 100)
    ).