Const mn=['к','К'];
Var f,t:text;
    s,s1:string;
Begin
    Assign(f,'D:\input.txt');
    Reset(f);
    While not Eof(f) do
     Begin
      readln(f,s);
      s:=s+' ';
      While Pos(' ',s)<>0 do
       Begin
        s1:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        Assign(t,'output.txt');
        Rewrite(t);
        if (s1[1] in mn) then write(t,s1,' | ');
       End;
     End;
    Close(f);
    Close(t);
End.