wip
filtermap instead of both
no need to explode all pairs
little more readable
euler 33 in erlang