|repeats maxDelay output|
repeats := 20.
maxDelay := 50.
output := 'delay.csv' asFileReference.
output ensureDelete.
output writeStreamDo: [ :stream |
	0 to: maxDelay do: [ :delay |
		|deltas wait|
		deltas := OrderedCollection new.
		wait := (Delay forMilliseconds: delay).
		repeats timesRepeat: [
			|begin|
			begin := Time microsecondClockValue.
			wait wait.
			deltas add: (Time microsecondClockValue - begin)/1000.0 ].
		stream nextPutAll: delay asString.
		deltas do: [ :delta | stream nextPutAll: ', ', delta asString. ].
		stream nextPutAll: String cr ] ]