FizzBuzz in Erlang

fizzbuzz.erl

-module(fizzbuzz).
-export([up_to/1]).


for(Number) when Number rem 3 == 0 andalso Number rem 5 == 0 ->
  'FizzBuzz';
for(Number) when Number rem 3 == 0 ->
  'Fizz';
for(Number) when Number rem 5 == 0 ->
  'Buzz';
for(Number) ->
  integer_to_list(Number).

fizzbuzz(Number, Max) when Number =< Max ->
  io:format('~s~n', [ for(Number) ]),
  fizzbuzz(Number + 1, Max);

fizzbuzz(_, _) ->
  {ok}.

up_to(Max) -> fizzbuzz(1, Max).