sub seq{ ($~=pop)=~s/./$&.*/sg;pop=~/$~/s }