'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'