[Window openSpec:
'((width 800)
  (height 500)
  (font "profontwindows" 32)
  (text "
\"Original version\"
    
[window dispatchEvent: window nextEvent.
 window draw.
] repeat.

\"Optimized version\"

[window nextEvents
     do: [ :event | self dispatchEvent: event]].
 window draw.
] repeat
")
  )]