1open Rosetta_collatz
2
3let () =
4    let sequence = List.init 10000 (fun a -> Collatz.collatzSequence (a + 1))
5    in print_endline (String.concat "\n" sequence)