Var i,n,k,nn,bo:integer;
    s,s1,s2,s3:string;
    a:array [1..100] of string[255];
    q,q1:boolean;

begin
  q1:=true;
  repeat
    s:='';q:=false;bo:=1;s1:='';
    readln(s);inc (nn);n:=0;
    for i:=1 to length(s) do
      begin
        if not q1 then
          s1:='';
        if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then
          begin
            inc (n);q1:=true;
            s1:=s1+s[i];q:=false;
          end
        else
          if ((s[i-1] in ['a'..'z']) or (s[i-1] in ['A'..'Z']))and
             ((s[i+1] in ['a'..'z']) or (s[i+1] in ['A'..'Z']))and
             (s[i]<>' ') then
            begin
              inc (n);q1:=true;
              s1:=s1+s[i];q:=false;
            end
          else
            begin
              if not q then
                for k:=n downto 1 do
                  begin
                    a[nn]:=a[nn]+s1[k];
                    q:=true;
                  end;
              a[nn]:=a[nn]+s[i];inc(n);
              q1:=false;bo:=n;n:=0;
            end;
      end;
  until (eof(input));
  bo:=length (s1);
  for k:=bo downto 1 do
    if (s1[k] in ['a'..'z']) or (s1[k] in ['A'..'Z']) then
      s2:=s2+s1[k]
    else
      s3:=s3+s1[k];
  a[nn]:=a[nn]+s2+s3;
  for i:=1 to nn do
    writeln (a[i]);
end.