use bigint; <>; for(<>){ ($d,$x,$t)=map$_+0,/\d+/g; print+($x+$d-1)->bfac()/($x->bfac()*bfac{$d-1})<=$t?AC:ZETUBOU,$/ }