refactored for idris-y-er Nats