;
(do
	(int mindly 1)
	(int maxdly 4)
	(int direction 0)
	(int dly 1)
	(getInt maxdly "Max. delay time (2-20)" 2 20)
	(forEachEvent
		(do
			(if (== Event.Kind NOTE)
				(do
					(insert (makeTime (meas Event.Time) (beat Event.Time) (+ (tick Event.Time) dly)) Event.Chan NOTE Note.Key Note.Vel Note.Dur)
				   (if (== direction 0)
						(do
							(++ dly)
							(if (== dly maxdly)
								(= direction 1)
							)
						)
					)
					(if (== direction 1)
						(do
							(-- dly)
							(if (== dly 0)
								(= direction 0)
							)
						)
					)
				)
			)
		)
	)
)