(* $Id: get_playlist_names.osa 376 2002-09-24 08:31:56Z comdog $ *)

tell application "iTunes"
	set myString to "Playlist count is " & (count of playlists) & return
	set myList to playlists
	repeat with i from 1 to count of myList
		set thisName to name of item i of myList
		set thisCount to count of tracks in item i in myList
		set myString to myString & "Playlist " & i & " " & thisName & " with " & thisCount & " tracks" & return
	end repeat
	return myString
	set myList to playlists
	return name of item 2 in myList
end tell