euler 144 in erlang