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