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