| aCollection aNumber | aNumber := 0. aCollection := #('one' 'two' 'three'). aCollection do: [ :element | aNumber := aNumber + 1. ] Transcript cr; show: 'There are ', aNumber asInteger, ' of strings in your collection of strings.'.