(* $Id: current_name_artist.osa 353 2002-09-20 22:50:32Z comdog $ *)

tell application "iTunes"
	return name of current track & "|" & artist of current track
end tell