<>;chop,/./,print$&x(y///c-(pos=-$k)),$`x/\G/,$/while$k=<>,$_=<>