open System

let n2fizzbuzz = function
    | x when x % 15 = 0 -> "FizzBuzz"
    | x when x %  3 = 0 -> "Fizz"
    | x when x %  5 = 0 -> "Buzz"
    | x                 -> string(x)

let count = int(Console.ReadLine())
let n = Seq.initInfinite (fun i->i+1)
let fizzbuzz = Seq.map n2fizzbuzz n
let msg = String.Join("\n", fizzbuzz |> Seq.take(count))

let a = n2fizzbuzz(1)

printfn "%s" msg