euler 43 in erlang