(stdin.ReadLine >> int >> fun n -> seq { for i in 1..n ->
    match (i%3,i%5) with
    | (0,0) -> "FizzBuzz"
    | (0,_) -> "Fizz"
    | (_,0) -> "Buzz"
    | (_,_) -> i.ToString ()
}) () |> Seq.iter stdout.WriteLine