a few more eulers in haskell and ocaml