do input""s$,t$,u$:n=rinstr(u$,s$):if""<s$^0*n?left$(u$,n-1),t$;
?mid$(u$,n+len(s$)*!!n)loop