% $Id: ComposeTest.oz,v 1.1 2007/10/14 17:56:08 leavens Exp leavens $ \insert 'Test.oz' \insert 'Compose.oz' fun {Add1 X} X+1 end fun {Add2 X} X+2 end {Test {{Compose Add1 Add2} 10} '==' 13} {Test {{Compose {CAdd 100} Add2} 10} '==' 112}