alias fancy1 {

  var %a = 1

  while ($($+($chr(36),%a),2)) {

    var %text = %text $+(14,$upper($left($($+($chr(36),%a),2),1)),4,$right($($+($chr(36),%a),2),-1))

    inc %a

  }

  say %text

} 
on *:input:*: { if ($left($1,1) != $chr(4&)) { fancy1 $1- | haltdef } }