on *:input:#: {
  if ($regex($1,m#^//.*#)) {
    $($1-,2)
    halt  
  }
  elseif ($regex($1,m#^/.*#)) {
    $1-
    halt
  }

  var %line
  var %x = 1
  if ($1 iswm !k*) { %line = $1- }
  else {
    while (%x <= $numtok($1-,32)) {
      if (($gettok($1-,%x,32) ison $chan) && ($regex($gettok($1-,%x,32),/^(.)(.+)(.)$/))) {
        %line = %line $+(12,$regml(1),4,$regml(2),12,$regml(3),)
      }
      elseif (($gettok($1-,%x,32) ison $chan) && ($len($gettok($1-,%x,32) < 3))) {
        %line = %line 12 $+ $gettok($1-,%x,32) $+ 
      }
      else {
        %line = %line $gettok($1-,%x,32)
      }
      inc %x
    }
  }

  say %line
  halt
}