begin
   comment   ET COMMENT;
   comment LIBRARY 1;
   real
     C;
   array
     D[ - 0 : + 1, 0⏨0 : 1·0];
   integerprocedure R(C);
      real
        C;
      R ≔         if true then
        C
      else
        R(0);
   D[0, 0] ≔ C ≔ C ≔ 1;
   comment PROGRAM MODIFIED TO AVOID USE BEFORE DECLARATION;
   begin
      integerarray
        H,
        A[1 : C+D[0,1-(R(+1))]],
        J[0 :1];
      switch B ≔         (B[2]),
        L,
        if if A[1] = 0 ∧ ¬ false then true
      else false then B[A[1] + 1] else L;
      real procedure P;
      begin
         Q(A, B, C, A[1])ENCORE : (B[1], (1));
         for C ≔ 1 step 1 until if false then P
         else 1 do
              for C ≔ 1,
              2 do
           ;
         P ≔ (0)
      end :P;
      procedure Q(A, B, C, D)E : (E, F);
         integer
           F;
           switch
           B;
           integerarray
           A;
           real
           C;
           real
           D;
           label
           E;
      ;
      comment   'BEGIN' 'COMMENT' 'END';
      A[1] ≔ 0;
      L :;
      OUTREAL(99, P);
      C ≔ C + 1 × 1⭡1;
      if C = 2 then
        goto B[P + 3]
   end
end