NSObject subclass: TestObject
[
        bar [ ^true ]
]

NSObject subclass: SmalltalkTool [
        foo [
                {'a'. 'b'} do: [
                        :char|
                        ('a' = char) ifTrue: [^TestObject new]
                ].
                ^TestObject new
        ]

        run [
                self foo.
        ]
]