Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl open StdLabels let (|>) f g = g f let rec range n m = if n > m then [] else n :: range (n+1) m let _ = range 1 100 |> List.map ~f:begin fun n -> if n mod 15 = 0 then "fizzbuzz" else if n mod 3 = 0 then "fizz" else if n mod 5 = 0 then "buzz" else string_of_int n end |> List.iter ~f:print_endline Private [?] Run code