added first euler problem solution in haskell