A script for downloading category word lists from wiktionary

wiktionary.röd

{ toRödaObj := require("json").jsonToRödaObj }

getadjs cat, token {
	obj := toRödaObj(json([loadResourceLines("https://en.wiktionary.org/w/api.php?action=query&list=categorymembers&cmtitle=Category:"..cat.."&cmlimit=500&format=json&cmcontinue="..token)]&" "))
	for adj in obj["query"]["categorymembers"] do
		STDOUT.push adj["title"], "\n"
	done
	return obj["continue"]["cmcontinue"] if [obj["continue"]?] else return ""
}

main cat {
	token := ""
	while true do
		token = getadjs(cat, token)
		break if [ token = "" ]
	done
}