!7

set flag LeanMode.

static File dbFile() {
  ret assertFileExists(new File("IP2LOCATION-LITE-DB1.CSV"));
}

p {
  if (empty(args))
    ret with print("Please supply an IP number as the argument to get the country name.");
    
  S ip = args[0];
  long ipNum = ipToInt(ip);
  
  S line = pairB(binarySearchForLineInTextFile(dbFile(), s -> {
    LS l = tok_splitAtComma_unquote(s);
    long a = parseLongOpt(first(l)), b = parseLongOpt(second(l));
    ret ipNum > b ? 1 : ipNum < a ? -1 : 0;
  }));
  
  print(or2(get(tok_splitAtComma_unquote(line), 2), "unknown"));
}