alias cBrackets {
  if ($isid) {
    var %colours = 03,04,06,07,09,10,11,12,13
    var %brackets.i = $calc(($2 % $numtok(%colours,44)) + 1)
    var %id = $+($ticks,%brackets.i,$1)
    var %re = /\(((?:[^()]|(?R))*)\)/g
    var %colour = $chr(3) $+ $gettok(%colours,%brackets.i,44)
    var %return = $regsubex(%id,$1,%re,$+(%colour,$chr(40),$chr(15),$cBrackets(\t,%brackets.i),%colour,$chr(41),$chr(15))) x
    returnex $regsubex($regsubex(coloured,$left(%return,-2),/((?>\d\d?))((?:[^]*(?:(?:\d\d?|)\s*)?\1)+)/g,\1 $+ $&
      $right($strip(x \2),-2) ),/(\(|\))(?!\x0F)/,$+($chr(22),\1,$chr(22)))
  }
  set -u0 %cbrackets.code $1-
  scon -r echo -ag Code: $!cBrackets(%cbrackets.code)
}