proc putchar_unlocked(c:char){.header: "<stdio.h>" .}
proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}
var S : array[2e6.int+10,char]
var n = 0
var x3 = 0
var x5 = 0
var isOdd = false
while true:
  var k = getchar_unlocked()
  if k < '0' or k > '9': break
  let c = k.ord - '0'.ord
  x3 += c
  if isOdd: x5 += c
  else: x5 -= c
  S[n] = k
  n += 1
  isOdd = not isOdd

if x3 mod 3 == 0:
  if x5 mod 5 == 0: echo "FizzBuzz"
  else: echo "Fizz"
elif x5 mod 5 == 0 : echo "Buzz"
else :
  for i in 0..<n: putchar_unlocked(S[i])
  putchar_unlocked('\n')