tell application "Safari"
	set tabList to every tab of front window
	set tabLinkList to {}
	repeat with aTab in tabList
		set aLink to URL of aTab
		set tabLinkList to tabLinkList & aLink
	end repeat
	set {astid, AppleScript's text item delimiters} to ¬
		{AppleScript's text item delimiters, return}
	set linkList to tabLinkList as string
	set AppleScript's text item delimiters to astid
end tell
set urlList to "javascript:"
set {astid, AppleScript's text item delimiters} to ¬
	{AppleScript's text item delimiters, return}
repeat with anUrl in text items of linkList
	set jsUrl to "void(window.open('" & anUrl & "'));"
	set urlList to urlList & jsUrl
end repeat
set AppleScript's text item delimiters to astid
set the clipboard to urlList