CONSTANT: terms { [ + ] [ - ] [ * ] [ / ] } CONSTANT: nums { -5 -4 -3 -2 -1 0 1 2 3 4 5 } : rterm ( -- term ) terms random ; : rnum ( -- number ) nums random [ ] curry ; : rnode ( -- node ) { [ rnum ] [ rterm ] } random call ; inline