% $Id: LAppendMapTest.oz,v 1.1 2006/12/12 23:30:39 leavens Exp leavens $ \insert 'LAppendMap.oz' \insert 'LFrom.oz' \insert 'LMap.oz' \insert 'LFlatten.oz' declare % My way of doing this, using LAppendMap for outer maps WithLAM = {LAppendMap {LFrom 1 10} fun {$ X} {LMap {LFrom 1 X} fun {$ Y} [X Y] end} end} {Show {List.take WithLAM 40}} % Your way, using LFlatten as in 4.5.9 WithLFlat = {LFlatten {LMap {LFrom 1 10} fun {$ X} {LMap {LFrom 1 X} fun {$ Y} [X Y] end} end} } {Show {List.take WithLFlat 40}}