Поиск токенов в строке Smalltalk с помощью PetitParser

Я хочу проанализировать

'This,is,an,example,text'

, как в findTokens

'This,is,an,example,text' findTokens: $, 
an OrderedCollection('This' 'is' 'an' 'example' 'text')

, но не могу понять, как это сделать с помощью PetitParser, delimitedBy: и separatedBy: мне не помогло Я пробовал

( #any asParser delimitedBy: $, asParser ) plus flatten parse:  'This,is,an,example,text'

, но явно не работал