var f,g:text;
    c:char;
begin
assign(f,'sarpe.in'); reset(f);
assign(g,'sarpe.out'); rewrite(g);
while not eoln(f) do begin
  read(f,c);
  write(g,c);
end;
write(g,'0');
close(g);
end.