there's a version the the NFT-SS2 trunk in

geography.ts

but it's not finished (it needs the lodash partial application treatment)