Program yy;
Var
  zhu,wei,qi: String;
  ch:Char;
Begin
  Read(ch);
  While ch<>' ' Do
  Begin
    zhu:=zhu+ch;
    Read(ch);
  End;
  Read(ch);
  While ch<>' ' Do
  Begin
    wei:=wei+ch;
    Read(ch);
  End;
  Read(ch);
  While ch<>'.' Do
  Begin
    qi:=qi+ch;
    Read(ch);
  End;
  qi:=qi+ch;
  If (wei='is')Or(wei='are') Then
  Begin
    wei[1]:=Chr(ord(wei[1])-32);
    zhu[1]:=Chr(ord(zhu[1])+32);
    qi[length(qi)]:='?';
    Write(wei,' ',zhu,' ',qi);
  End
  Else
  If wei='am' Then
  Begin
    wei:='Are';
    zhu:='you';
    qi[Length(qi)]:='?';
    write(wei,' ',zhu,' ',qi);
  End
  Else
  Begin
    If wei='has' Then wei:='have'
    Else
      If (wei='watches')Or(wei='teaches')Or(wei='does')Or(wei='goes')Or(wei='wishes') Then
      Begin
        If wei='watches' Then wei:='watch';
        If wei='teaches' Then wei:='teach';
        If wei='does' Then wei:='do';
        If wei='goes' Then wei:='go';
        If wei='wishes' Then wei:='wish';
      End
        Else
          If (wei='flies') Then wei:='fly'
          Else
            If wei[length(wei)]='s' Then wei[length(wei)]:=' ';
    If (zhu='I')Or(zhu='You')Or(zhu='We')Or(zhu='They')Or(zhu[length(zhu)]='s') Then
      Write('Do ')
    Else Write('Does ');
    If zhu='I' Then zhu:='you'
    Else
    zhu[1]:=Chr(ord(zhu[1])+32);
    qi[length(qi)]:='?';
    Write(zhu,' ',wei,' ',qi);
  End;
  ReadLn;
ENd.