open System

module Main =
    let scanfn f = Array.toList (Console.ReadLine().Split(' ')) |> List.map f

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

    let main =
        let [n;] = scanfn int
        let rec f = function
            | x when x > n -> ()
            | x -> solve x |> printfn "%s"
                   x + 1 |> f
        f 1
    
[<EntryPoint>]
let main argv = Main.main; 0