var
  i: integer;
  a, b, c, d: string;

begin
  read(a);

  var e := new integer[0];

  for i := 1 to a.Length do
  begin
    if a[i] = ' ' then begin
      setlength(e, e.Length + 1);
      e[e.Length - 1] := i;
    end;
  end;

  writeln(a[e[0] + 1], '.', a[e[1] + 1], '. ', a[1:e[0]]);


end.