alias fancy1 { 
  var %a = 1
  while ($($+($chr(36),%a),2)) {
      var %text = %text $+(04,$upper($left($($+($chr(36),%a),2),1)),14,$right($($+($chr(36),%a),2),-1))
      inc %a
    }
  }
  .say %text
}