m:-readln([X]),format("~d
",2<<msb(X)),m.