Euler in erlang 1 & 2