use bigint;print$y=(bnok{31}$x=<>),$",~-2**31*$x*$y/31