euler 47 in erlang