Smalltalk でもズンドコキヨシ(仕事は？)

| results zunDoko |
makeZunDokoBlock := [ 
	| array collection |
	array := #('zun' 'doko').
	collection := OrderedCollection new.
	5 timesRepeat: [collection add: (array at: (Random new next * 2) asInteger + 1)].
	collection].
kiyoshiCheckBlock := [ : collection |
	collection asArray = #('zun' 'zun' 'zun' zun 'doko')].
results := OrderedCollection new.
10000 timesRepeat: [
	zunDoko := makeZunDokoBlock value.
	results addAll: zunDoko.
	(kiyoshiCheckBlock value: zunDoko)
		ifTrue: [ results add: 'KIYOSHI!'. ^results ]].

whileTrue: の書き方がよくわかんなくて暴走しまくったわｗｗｗｗｗ
１００００回やればキヨシチェック通るんじゃね？
というテキトーなプログラムになっております。
無限ループは良くないと思うのでこれでカンベンしてくださいｗ