#!perl -pl for$i(1..30){if(2**$i>$_){$_=2**$i;last}}