import Data.Ix(range)

main :: IO ()
main = readLn >>= mapM_ (putStrLn.fizzbuz).range.((,) 1)

fizzbuz :: Int -> String
fizzbuz i | i `mod` 15 == 0 = "FizzBuzz"
          | i `mod` 5  == 0 = "Buzz"
          | i `mod` 3  == 0 = "Fizz"
          | otherwise       = show i