var n,m,d:int64;
    fi,fo:text;
    a:array[1..1000000]of char;
    b:array[1..1000000]of byte;
begin
     assign(fi,'next.in'); reset(fi);
     assign(fo,'next.out'); rewrite(fo);
     i:=1;
     while not eof(fi) do
        begin
             read(fi,a[i]);
             val(a[i],b[i]);
             inc(i);
        end;
     readln(fi,d);