func main()
	var s: []char :: cui@input()
	var mods: []int :: [3, 5, 15]
	var vals: []int :: #[16]int
	
	for i(0, ^s - 1)
		var n: int :: s[i] $ int - '0' $ int
		for j(0, 2)
			var mod: int :: mods[j]
			do vals[mod] :* 4
			do vals[mod] :+ n
			do vals[mod] :% mod
		end for
	end for
	
	if(vals[15] = 0)
		do cui@print("FizzBuzz\n")
	elif(vals[5] = 0)
		do cui@print("Buzz\n")
	elif(vals[3] = 0)
		do cui@print("Fizz\n")
	else
		do cui@print("\{s}\n")
	end if
end func