var
s,ins:string;
i:integer;
begin
    readln(s);
    ins := ' ';
    i:=1;
    while(i<=length(s)) do
    begin
        if(s[i]=',') then
        begin
            insert(ins,s,i+1);
            inc(i,2);
        end
        else inc(i);
    end;
    writeln(s);
end.