use bigint;for($\=$/;$_=$i++<100;print){$_*=2until/^$i/}