euler 65 in erlang