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