readPrimitive | num args | self nextLex. num <- self readInteger. args <- List new. [ tokenType ~= $> ] whileTrue: [ args add: self readTerm ]. self nextLex. ^ PrimitiveNode new number: num arguments: args