sub seq { my($s,$r)=shift; $s=~/\Q$_/?($r.=$`,$s=$'):return for split//,pop; $r.$s }