begin
   comment LIBRARY 3;
   real procedure A(K, X1, X2, X3, X4, X5);
      value
        K;
      integer
        K;
        real
        X1,
        X2,
        X3,
        X4,
        X5;
   begin
      real procedure B;
      begin
         K ≔ K - 1;
         B ≔ A ≔ A(K, B, X1, X2, X3, X4)
      end;
      if K ⩽ 0 then
        A ≔ X4 + X5
        else if B < 0 then
   end;
   OUTREAL(99, CPUTIME);
   OUTREAL(99, A(10, 1, - 1, - 1, 1, 0));
   OUTREAL(99, CPUTIME);
end