NZD50k per side including sound processors. NZD86k-ish if done bilaterally at the same time.

Sound processors are around NZD7-8k a pop and have an expected replacement cycle of 5-7 years.

I've seen a few examples of this function over the years, here's a recent variant of mine (I'm accepting the use of eval here):

    # Provide 'up', so instead of e.g. 'cd ../../../' you simply type 'up 3'
    up() {
      case "${1}" in
          (*[!0-9]*)  : ;;
          ("")        cd || return ;;
          (1)         cd .. || return ;;
          (*)         cd "$(eval "printf -- '../'%.0s {1..$1}")" || return ;;
      esac
      pwd
    }