Class Parser

readStatementList   | list |

	list <- List new.

	[ list add: self readStatement.

	  tokenType notNil and: [ tokenType = $. ] ]

		whileTrue: [ self nextLex.

			(token isNil or: [ tokenType = $] ] )

				ifTrue: [ ^ list ] ].

	^ list