m:-readln([A]),B is 2^((A-1)mod 32),format("-~d to ~d
",[B,B-1]),m.