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 := 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(54321); writetex(30, ` Hello World');
   close(30)
end