sclass WikiData {
  S language = "en";
  S site = "https://wikidata.org";
  S apiPath = "/w/api.php";
  
  class BasicNode {
    S id, label;
    LS aliases;
    S description;
    
    S url() {
      ret site + "/entity/" + id;
    }
    
    toString {
      ret formatColonProperties(paramsToPairs(+language, +id, +label, +aliases, +description, +url()));
    }
  }

  L<Map> search(S q) {
    ret (L) rmapGet("search", (Map) loadJSONPageWithParams(site + apiPath, action := "wbsearchentities",
      format := "json",
      +language,
      type := "item",
      continue := 0,
      search := q));
  }
  
  Map getItems(S ids) {
    ret (Map) rmapGet("entities", (Map) loadJSONPageWithParams(site + apiPath, action := "wbgetentities",
      format := "json",
      +ids));
  }
    
  // itemID = e.g. "Q388"
  Map get(S itemID) {
    ret (Map) rmapGet(itemID, getItems(itemID));
  }
  
  BasicNode getBasicNode(S id) {
    var data = get(itemID);
    if (data == null) null;
    new BasicNode node;
    node.id = (S) rgenget id(data);
    node.label = (S) rgenget value(rgenget(language, rgenget labels(data)));
    node.aliases = collectMapValues_gen value(rgenget(language, rgenget aliases(data)));
    node.description = rgenget value(rgenget(language, rgenget descriptions(data)));
    ret node;
  }
}