iTunes auto cutting

itunesautocutting-20110116.scpt

tell application "iTunes"
	play
	repeat
		next track
		set l to duration of current track
		repeat 16 times
			set p to random number from (l - 1)
			set r to random number from 1 to 4
			set d to 2 ^ (4 - r) / 10
			repeat 2 ^ r times
				set player position to p
				delay d
			end repeat
		end repeat
	end repeat
end tell