AdiIRC $& ok

alias wraw_col {
  if (!$1) { return }
  return $replace($1-,.,$+($chr(3),4.,$chr(3),$chr(2),$chr(2)),@,$+($chr(3),4@,$chr(3),$chr(2),$chr(2)),~,$+($chr(3),4~,$chr(3),$chr(2),$chr(2)),*,$+($chr(3),4*,$chr(3),$chr(2),$chr(2)),$chr(40),$+($chr(3),4,$chr(40),$chr(3),$chr(2),$chr(2)),$chr(41),$+($chr(3),4,$chr(41),$chr(3),$chr(2),$chr(2)),!,$+($chr(3),4!,$chr(3),$chr(2),$chr(2)),^,$+($chr(3),4^,$chr(3),$chr(2),$chr(2)),&,$+($chr(3),4&,$chr(3),$chr(2),$chr(2)),_,$+($chr(3),4_,$chr(3),$chr(2),$chr(2)),-,$+($chr(3),4-,$chr(3),$chr(2),$chr(2)),+,$+($chr(3),4+,$chr(3),$chr(2),$chr(2)),=,$+($chr(3),4=,$chr(3),$chr(2),$chr(2)),\,$+($chr(3),4\,$chr(3),$chr(2),$chr(2)),|,$+($chr(3),4|,$chr(3),$chr(2),$chr(2)),$chr(35),$+($chr(3),4#,$chr(3),$chr(2),$chr(2)),$chr(36),$+($chr(3),4$,$chr(3),$chr(2),$chr(2)),%,$+($chr(3),4%,$chr(3),$chr(2),$chr(2)),[,$+($chr(3),4[,$chr(3),$chr(2),$chr(2)),],$+($chr(3),4],$chr(3),$chr(2),$chr(2)),`,$+($chr(3),4`,$chr(3),$chr(2),$chr(2)),:,$+($chr(3),4:,$chr(3),$chr(2),$chr(2)),;,$+($chr(3),4;,$chr(3),$chr(2),$chr(2)),",$+($chr(3),4",$chr(3),$chr(2),$chr(2)),',$+($chr(3),4',$chr(3),$chr(2),$chr(2)),<,$+($chr(3),4<,$chr(3),$chr(2),$chr(2)),>,$+($chr(3),4>,$chr(3),$chr(2),$chr(2)),$chr(44),$+($chr(3),4 $+ $chr(44),$chr(3),$chr(2),$chr(2)),?,$+($chr(3),4?,$chr(3),$chr(2),$chr(2)),/,$+($chr(3),4/,$chr(3),$chr(2),$chr(2)),$chr(123),$+($chr(3),4{,$chr(3),$chr(2),$chr(2)),$chr(125),$+($chr(3),4},$chr(3),$chr(2),$chr(2)))
}