fizzbuzz:: Int  -> String
fizzbuzz n = case n of
  _ 
    | (mod n 15) == 0 -> "FizzBuzz"
    | (mod n 3) == 0 -> "Fizz"
    | (mod n 5) == 0 -> "Buzz"
    | otherwise -> show n


main = do
  n <- fmap (\c -> read c ::Int) getLine
  putStrLn $ fizzbuzz n