\insert 'TestingNoStop.oz' \insert 'PartitionInClass.oz' \insert 'FromByInClass.oz' {StartTesting 'Partition'} local Odds Evens in {Partition {FromBy 0 1} IsOdd Odds Evens} thread O1 O2 O3 O4 O5 Os in Odds = O1|O2|O3|O4|O5|Os end thread E1 E2 E3 E4 E5 Es in Evens = E1|E2|E3|E4|E5|Es end {Show 'Odds'#Odds} {Show 'Evens'#Evens} end {StartTesting done}