program nnn;
const ss:set of char=[',', '.', '!', '?'];
var i:integer;
s:string;
BEGIN
writeln('vv text');
readln(s);
i:=1;
while i if (s[i] in ss) then begin
if not (s[i+1]=' ') then insert(' ',s,i+1);
if s[i]<>',' then begin
insert (upcase(s[i+2]),s,i+3);
delete(s,i+2,1);
end;
end;
inc(i);
end;
writeln(s);
readln;
END.