Mine

alias caps {
  tokenize 32 $replace($1-,$chr(40),$chr(40) $+ $chr(32))
  var %z = 1
  var %zouput
  while (%z <= $0) {
    %zouput = %zouput $upper($left($($+($,%z),2),1)) $+ $lower($right($($+($,%z),2),-1))
    inc %z
  }
  return $replace(%zouput,$chr(40) $+ $chr(32),$chr(40),$chr(32) $+ $chr(41),$chr(41))
}