% $Id: LazyListsTest.oz,v 1.1 2007/11/02 17:59:52 leavens Exp leavens $ \insert 'LazyLists.oz' {Browse 'Nats...'} {Browse Nats} {Browse {Nth Nats 2}} {Browse {List.take Nats 6}} {Browse {List.take {From 0} 25}} {Browse {Nth Nats 9}} {Browse 'AddLists...'} {Browse {List.take {AddLists Nats {From 1}} 20}} {Browse {List.take {AddLists {From 1} {From 2}} 20}} {Browse 'FibGen...'} {Browse FibsGenerated} {Delay 2000} {Browse {List.take FibsGenerated 15}} {Browse {List.take FibsGenerated 35}} {Browse 'Ones...'} thread {Browse Ones} end {Browse {List.take Ones 2}} declare Nats2 = {From 1} thread {Browse Nats2} end {Browse {Nth Nats2 3}} {Browse Twos} {Browse {Nth Twos 7}}