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(3)) {
      var %cap = 0
      var %isaftercomma $false
      var %buff = %buff $+ %chr
      inc %i
      set %chr $mid($1-,%i,1)
      while ((%i <= $len($1-)) && ((%chr isnum) || (%chr == $chr(44)))) {
        if (%isaftercomma == $true) inc %cap
        if (%chr == $chr(44)) set %isaftercomma $true
        if (%cap > 2) break
        var %buff = %buff $+ %chr
        inc %i
        set %chr $mid($1-,%i,1)
      }
      continue
    }
    elseif (%chr == $chr(32)) var %chr = $chr(160)
    elseif (($asc(%chr) >= 65) && ($asc(%chr) <= 90)) var %chr = $chr($calc(9333 + $asc(%chr)))
    elseif (($asc(%chr) >= 97) && ($asc(%chr) <= 122)) var %chr = $chr($calc(9327 + $asc(%chr)))
    var %buff = %buff $+ %chr
    inc %i
  }
  say %buff
}


alias fw {
  var %input = $1-
  var %length = $len(%input)

  var %text
  var %i = 1
  while (%i <= %length) {
    var %char = $mid(%input,%i,1)
    var %char_asc = $asc(%char)

    if (%char_asc >= 32 && %char_asc <= 126) {
      if (%char_asc == 32) {
        var %text = %text $+ $chr(12288)
      }
      else {
        var %widechar_asc = $calc(%char_asc + (65280 - 32))
        var %text = %text $+ $chr(%widechar_asc)
      }
    }
    else {
      var %text = %text $+ %char
    }

    inc %i
  }

  say %text
}