lookupTree "Diaspora" (listToTree [("Distress", 352), ("Permutation City", 304), ("Quarantine", 288), ("Diaspora", 320)])
