#!perl -pl
@a=$_=/ /;push@a,$_+=$_+2**$#a-$a[-1-$']until@a>$`-$'