program cpt(source, object);
 
var c: char;
    source, object: text;
 
begin

   reset(source);
   rewrite(object);
   while not eof(source) do begin

      if not eoln(source) then begin

         read(source, c);
         write(object, c)

      end else begin readln(source); writeln(object) end

   end

end.