program normalis;


var letter:char;
    MMPWORDFILE:TEXT;
    FIRSTCHAR:BOOLEAN;
    PREVCHAR:BOOLEAN;
count:integer;




FUNCTION ISCHAR(LETTER:CHAR):BOOLEAN;
BEGIN
ISCHAR:=FALSE;
IF (LETTER IN ['A'..'Z']) OR (LETTER IN ['a'..'z']) OR ((LETTER=" ") OR (LETTER='-'))
THEN ISCHAR:=TRUE;
END;


begin
ASSIGN(MMPWORDFILE,'mmpwords.txt');
REWRITE(MMPWORDFILE);
WHILE NOT EOF (INPUT) DO BEGIN
COUNT:=1;
while (not eoln(input)) AND (count <=80) do 
begin
READ(INPUT,letter);
WRITE(OUTPUT,letter);


IF NOT(PREVCHAR) THEN IF ISCHAR(LETTER) THEN WRITELN(MMPWORDFILE);
IF ISCHAR(LETTER) THEN BEGIN
WRITE(MMPWORDFILE,LETTER);
FIRSTCHAR:=NOT(PREVCHAR);
IF FIRSTCHAR THEN BEGIN

FIRSTCHAR:=FALSE;
PREVCHAR:=TRUE;
END; {if firstchar}
END ELSE
PREVCHAR:=FALSE; {end of if ischar and else}




if ((count = 80) or (eoln (input))) then writeln(output);

count:=count+1;

end; {while not eoln}

IF NOT (EOF(INPUT)) AND (COUNT < 80) THEN READLN(INPUT);
WRITELN(OUTPUT);


END; {while not eof}

end.