p:=0
File standardInput readLines map($,f:=0;$foreach(v,if(v==w:="mariko"at(p),f=w^32,v)asCharacter print)writeln;f<1or p=p+1)