let inp = int_of_string (read_line ());; let p x = if x mod 5 == 0 then begin if x mod 3 == 0 then "FizzBuzz\n" else "Buzz\n" end else if x mod 3 == 0 then "Fizz\n" else ((string_of_int x) ^ "\n") ;; for i = 1 to inp do print_string (p i) done;;