procedure double(var t : byte);
begin
    mn:=['0'..'9'];
    reset(F1);
    rewrite(F2);
    while not eof (F1) do
    begin
    readln(F1,a);
    i:=1;
    repeat
    if a[i] in mn then
    begin
    b:=a[i];
    val(b,j,cod);
    j:=j*2;
    str(j,b);
    delete(a,i,1);
    insert(b,a,i);
    if j>=10 then i:=i+1;
    end;
    inc(i);
    until i>length(a);
    writeln(F2,a);
    end;
    close(F2);
  end;