begin 
   procedure digit(I);
     value I;
     integer I;
   begin 
     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 digit;

   procedure wrnum(i);
      value i;
      integer i;
    begin 
      integer j;
      if i < 0 then begin;
        writetex(30, `-');
        i := -i;
      end;
      if i > 9 then begin;
        j := i ÷ 10;
        wrnum(j);
        j := j + j + j + j + j;
        j := j + j;
        i := i - j;
      end;
      digit(i);
   end wrnum;

   open(30);
   wrnum(10); writetex(30, `Hello World');
   close(30)
end