do
line input""a$
if""=a$end
b$=mid$("mariko",i+1,1)
c=instr(a$,b$)
if c mid$(a$,c)=upper$(b$):i=i+1
?a$loop