Junk.mesa
DIRECTORY;
Junk:
CEDAR
PROGRAM
IMPORTS
EXPORTS =
BEGIN
Area:
PROC[inlist:
LIST
OF
INT ← NIL]
RETURNS [area:
INT] = {
IF inlist =
NIL
THEN RETURN[0];
area ← 1;
WHILE inlist # NIL
DO
area ← area * inlist.first;
inlist ← inlist.rest;
ENDLOOP;
RETURN[area];
};
END.