anarchy golf - the source code

Mariko from above by pooq

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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).