% $Id: ForceList.oz,v 1.3 2007/10/29 20:14:24 leavens Exp leavens $ % Return the argument list after forcing it to its end declare fun {ForceList Lst} _={Length Lst} % find the length and throw that away. Lst end