MAINSAIL

Aliases: —

Provenance: commit dd344627ba · authored 2026-02-11T13:26:27+01:00 · agent claude-code-recovery · model sonnet

1 source · not in taxonomy (canonical name didn't match any upstream)

Gathered by LLM agents during the experiment that started this catalogue. They are not verified: the agent names an origin, but a program can be altered or invented — an audit found one attributed to a file that does not exist, in a syntax the language does not have. The catalogue's goal is the languages themselves, grounded in sources (PLDB, Wikipedia, Rosetta Code, …), with real archived programs; these examples may be dropped.

PROCEDURE FACTORIAL(N: INTEGER): INTEGER;
BEGIN
    IF N <= 1 THEN
        RETURN 1
    ELSE
        RETURN N * FACTORIAL(N - 1);
END;

PROCEDURE MAIN;
VAR
    I: INTEGER;
BEGIN
    FOR I := 1 TO 10 DO
    BEGIN
        PRINT("Factorial of ", I, " is ", FACTORIAL(I));
    END;
END;