alias cv {
  var %i = 1
  var %buff = $null
  while (%i <= $len($1-)) {
    var %chr = $mid($1-,%i,1)
    if (%chr isnum) var %chr = $iif(%chr == 0,$chr(9450),$chr($calc(9311 + %chr)))
    elseif (%chr == $chr(32)) var %chr = $chr(160)
    elseif (%chr isupper) var %chr = $chr($calc(9333 + $asc(%chr)))
    elseif (%chr islower) var %chr = $chr($calc(9327 + $asc(%chr)))
    var %buff = %buff $+ %chr
    inc %i
  }
  say %buff
}