begin 
   procedure wrnum(i);
      value i;
      integer i;
   begin 
      procedure wrneg(i);
         value i;
         integer i;
       begin 
         integer j;
         if i < -9 then begin;
           j := 10000000000; for j := j-10000000000 while i < -99999999999 do i := i+100000000000;
           j := j+1000000000; for j := j-1000000000 while i < -9999999999 do i := i+10000000000;
           j := j+100000000; for j := j-100000000 while i < -999999999 do i := i+1000000000;
           j := j+10000000; for j := j-10000000 while i < -99999999 do i := i+100000000;
           j := j+1000000; for j := j-1000000 while i < -9999999 do i := i+10000000;
           j := j+100000; for j := j-100000 while i < -999999 do i := i+1000000;
           j := j+10000; for j := j-10000 while i < -99999 do i := i+100000;
           j := j+1000; for j := j-1000 while i < -9999 do i := i+10000;
           j := j+100; for j := j-100 while i < -999 do i := i+1000;
           j := j+10; for j := j-10 while i < -99 do i := i+100;
           j := j+1; for j := j-1 while i < -9 do i := i+10;
           wrneg(j);
         end;
         if i = 0 then writetex(30, `0');
         if i = -1 then writetex(30, `1');
         if i = -2 then writetex(30, `2');
         if i = -3 then writetex(30, `3');
         if i = -4 then writetex(30, `4');
         if i = -5 then writetex(30, `5');
         if i = -6 then writetex(30, `6');
         if i = -7 then writetex(30, `7');
         if i = -8 then writetex(30, `8');
         if i = -9 then writetex(30, `9');
      end wrneg;

     if i < 0 then writetex(30, `-') else i := -i;
     wrneg(i);
   end wrnum;
   open(30);
   wrnum(-549755813888); writetex(30, ` to '); wrnum(549755813888);
   close(30)
end