let zero = LanguagePrimitives.GenericZero
let one = LanguagePrimitives.GenericOne
let three = one + one + one
let five = three + one + one

let f (i:int) =
    match (i % three, i % five) with
    | (a, b) when a = zero && b = zero -> "FizzBuzz"
    | (a, b) when b = zero -> "Buzz"
    | (a, b) when a = zero -> "Fizz"
    | _ -> i.ToString ()

let iter (n:int) =
    seq { one..n }
    |> Seq.map f
    |> Seq.iter (printfn "%s")

stdin.ReadLine () |> int |> iter