Thank You SIR!
Ken

At 09:12 -0700 on 2001/09/14,  Dan Ingalls is rumored to have written:
><snip>
>------------------
>  | x aTranscript dict |
>x := 0.  dict := Dictionary new.
>($a to: $z) do:  "open 26 transcripts"
>	[:letter | ((aTranscript _ TranscriptStream new) 
>openAsMorphLabel: letter asString)
>			openInWorld; position: (x := x+30)@30; extent: 200 at 300.
>	dict at: letter put: aTranscript].
>(Symbol allInstances copyFrom: 1 to: 500) do:  "display 500 strings at random"
>	[:s | (dict at: s first ifAbsent: [])  "distribute each by 
>its first letter"
>		doIfNotNil: [:t | t show: s; cr]]
>------------------
>
>Hope this helps
>
>	- Dan
>--