AppleScript to List All Safari Tab URLs

tell application "Safari"
	set urlList to {}
	repeat with w in windows
		repeat with t in tabs of w
			set end of urlList to URL of t
		end repeat
	end repeat
end tell

set AppleScript's text item delimiters to linefeed
return urlList as text