Class Parser

lexBinary	| c d |

	c <- self currentChar.

	token <- c asString.

	d <- self nextChar.

	(self charIsSyntax: c) ifTrue: [ ^ token ].

	(((d isBlank 

		or: [ d isDigit])

		or: [ d isAlphabetic ])

		or: [ self charIsSyntax: d])

			ifTrue: [ ^ token ].

	token <- token + d asString.

	self nextChar