alias wordcolour { var %word = $1
  var %temp = $round($calc($len(%word) / 2),0)
  var %midreg = (.{ $+ $calc(%temp - 1) $+ }.)
  var %temp = $regex(midhalf, %word, %midreg) | var %temp = $regml(midhalf, 1)
  var %store = %temp | var %temp = $regex(last, %store, (.)$)
  var %temp = $regsubex(rep, %temp, (.)$, $+(04,$regml(last, 1),))
  var %word = $regsubex(mid, %word, %midreg, %temp)
  var %temp = $regex(last, %word, (.)$)
  var %word = $regsubex(rep, %word, (.)$, $+(04,$regml(last, 1),))
  var %startreg = (.{ $+ $calc($len(%store) - 1) $+ }).
  var %temp = $regex(start, %store, %startreg) | var %temp = $regml(start, 1)
  var %temp = $regex(first, %store, ^(.))
  var %temp = $regsubex(rep, %store, ^., $+(04,$regml(first, 1),))
  var %temp = $left(%temp, $calc($len(%temp) - 1))
  return %temp $+ %word
}