print$a=-(1<<$_-1)," to ",~$a,$/for<>