func main()
	var s: []char :: #[2000001]char
	var n3: int :: 0
	var n5: int :: 0
	var i: int :: 0
	while loop(true)
		try
			do s[i] :: cui@inputChar()
		catch 0xE9170008
			break loop
		end try
		var d: int :: s[i] $ int - '0' $ int
		do n3 :+ d
		do n5 :+ ((i % 2 = 0) ?(1, -1)) * d
		do i :+ 1
	end while
	do s :: s.sub(0, i)
	if(n3 % 3 = 0 & n5 % 5 = 0)
		do cui@print("FizzBuzz\n")
	elif(n5 % 5 = 0)
		do cui@print("Buzz\n")
	elif(n3 % 3 = 0)
		do cui@print("Fizz\n")
	else
		do cui@print("\{s}\n")
	end if
end func