a=[1] f=->x{a[x]||=x*f[x-1]} gets $<.map{|l|puts eval'f[(d=%d-1)+x=%d]/f[d]/f[x]>%d?:ZETUBOU: :AC'%l.split}