euler 32 in erlang