nextLex
self skipBlanks.
tokenType <- self currentChar.
tokenType isNil " end of input "
ifTrue: [ tokenType <- $ . token <- nil. ^ nil ].
tokenType isDigit ifTrue: [ ^ self lexInteger ].
tokenType isAlphabetic ifTrue: [ ^ self lexAlphabetic ].
^ self lexBinary