use bigint; $x=<>; print 31->bnok($x),$",(2**31-1)*30->bnok($x-1);