tell application "iTunes"
	play

	repeat while (true)
		delay 1
		next track
	end repeat
end tell