open System

let fizzbuzz x =
    match (x % 3, x % 5) with
    | (0, 0) -> "FizzBuzz"
    | (0, _) -> "Fizz"
    | (_, 0) -> "Buzz"
    | _      -> string x

[<EntryPoint>]
let main argv =
    let N = int(Console.ReadLine())
    [1..N]
    |> List.map fizzbuzz
    |> List.iter (printfn "%s")
    0