alias fancy1 { 
  var %a = 1
  while ($($+($chr(36),%a),2)) {
    if ($($+($chr(36),%a),2) ison $chan) && ($chan) {
      var %text = %text 10-[6 $+ $($+($chr(36),%a),2) $+ 10]-
      inc %a
    }
    else {
      var %text = %text $+(04,$upper($left($($+($chr(36),%a),2),1)),14,$right($($+($chr(36),%a),2),-1))
      inc %a
    }
  }
  .say %text
}