euler 1 in ocaml ACC