alias repcol {
  if ($regex($1-,/.*(\[col=(.*)\](.*)\[col\]).*/Si))  return $replace($1-,$regml(1),$+(<font color=",$regml(2),">,$regml(3),</font>))
  else return $1-
}