open System

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

let ceil = int(Console.ReadLine())
let fizzbuzz = Seq.map N2FB {1..ceil}
let msg = String.Join("\n", fizzbuzz)

printfn "%s" msg