program Main(input, output);
procedure copy(var inp, out: text);
        var
                c: char;
        begin
                while not eof(inp) do
                begin
                        while not eoln(inp) do
                        begin
                                c := inp^;
                                out^ := c;
                                put(out);
                                get(inp);
                        end;
                        writeln;
                        get(inp);
                end;
        end;
begin
        copy(input, output);
end.
