Class Parser

binaryContinuation: base | receiver name |

	receiver <- self unaryContinuation: base.

	[ self tokenIsBinary] 

		whileTrue: [ name <- token. self nextLex.

			receiver <- MessageNode new

				receiver: receiver name: name arguments:

					(List new add: 

						(self unaryContinuation: self readTerm)) ].

	^ receiver