euler 2 for erlang