euler 36 in erlang