this is technically the same shiz

alias SecCol {
  var %t = 1
  tokenize 32 $remove($1-,$chr(32))
  while (%t <= $len($1-)) {
    var %c = $asc($mid($1-,%t,1))
    while (%c > 15) { %c = $round($calc(%c / 2.6),0) }
    var %f = $+(%f,,%c,$chr(44),%c,.)
    inc %t
  }
  return %f
}
On *:input:#: if ($left($1-,1) != /) { msg $active $secCol($1-) | halt }