Erlang solution to problem 1.