let () = let n = read_int () in let rec doit i = if i > n then () else begin if i mod (3*5) = 0 then print_endline "FizzBuzz" else if i mod 3 = 0 then print_endline "Fizz" else if i mod 5 = 0 then print_endline "Buzz" else Printf.printf "%d\n" i; doit (i + 1) end in doit 1