euler 50 in erlang