#!/usr/bin/env escript
main(Args) ->
    N = list_to_integer(erlang:hd(Args)),   % Arguments[0] to a Number
    lists:foreach(
        fun(X) -> io:format("~p~n", [X]) end,
        fizzBuzz(N)).
fizzBuzz(N) ->
    lists:foldl(
        fun
            (X, Sum) when X rem 15 =:= 0 -> Sum ++ ["FizzBuzz"];
            (X, Sum) when X rem  5 =:= 0 -> Sum ++ ["Buzz"];
            (X, Sum) when X rem  3 =:= 0 -> Sum ++ ["Fizz"];
            (X, Sum)                     -> Sum ++ [integer_to_list(X)]
        end,
        [],
        lists:seq(1, N)
    ).