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