Get the URL and Name of every tab of every window and add to Reading List

Safari - Add All to Reading List.scpt

(* 
  Get the URL and Name of every tab of every window and add to Reading List
  Drew Diver, 2019
*)

tell application "Safari"
	set windowCount to the number of windows
	repeat with currentWindow from 1 to windowCount
		set tabCount to number of every tab in window currentWindow
		repeat with currentTab from 1 to tabCount
			set tabURL to get URL of tab currentTab of window currentWindow
			set tabName to get name of tab currentTab of window currentWindow
			add reading list item tabURL with title tabName
		end repeat
	end repeat
end tell