m:-readln([A]),B=2^(A-1/\31),format("-~d to ~d
",[B,B-1]),m.