[ |font provider string |
	font := StandardFonts defaultFont.
	provider := font realFont.
	string := 'abcdefghijklmnopqrstuvwxyz 0123456789!@#$%^&*()_+'.
	1 to: 10000 do: [ :i |
		string inject: 0 into: [ :width :c | width + (provider getGlyphWidth: c) ] ].
] timeToRun