let Z,O = String.length "",String.length "_"
let F,B = O+O+O,O+O+O+O+O
(stdin.ReadLine >> int >> fun n -> seq { for i in O..n ->
    match (i%F=Z,i%B=Z) with
    | (true,true) -> "FizzBuzz"
    | (true,_) -> "Fizz"
    | (_,true) -> "Buzz"
    | (_,_) -> i.ToString ()
}) () |> Seq.iter stdout.WriteLine