((^i(while(read-line)=> s(if #0=(string-scan s(~"mariko "i))(set!(~ s #0#)(~" MARIKO"(inc! i))))(print s)))0)