getTraffic[page_, start_, end_] :=
URLFetchAsynchronous[
"https://wikimedia.org/api/rest_v1/metrics/pageviews/per-article/en.\
wikipedia/all-access/user/" <>
URLEncode@StringReplace[page, " " -> "_"] <> "/daily/" <>
DateString[start, {"Year", "Month", "Day"}] <> "00/" <>
DateString[end, {"Year", "Month", "Day"}] <> "00",
Which[
#2 == "data",
Module[{data =
ImportString[FromCharacterCode[First@#3, "UTF-8"],
"RawJSON"]}, (
activeRequests--;
If[KeyExistsQ[data, "items"],