begin
   comment 'LIBRARY' 1;
   integer procedure FACT(N);
      value
        N;
      integer
        N;
      FACT ≔         if N > 1 then
        N × FACT(N - 1)
      else
        1;
   FACT ≔ 1;
   OUTREAL(99, FACT(5))
end