Untitled

alias rb {
  var %m = 1, %n = 1, %c1 = 04, %c2 = 07, %c3 = 08, %c4 = 09, %c5 = 11, %c6 = 02, %c7 = 06
  while ($mid($1-,%n,1) || $mid($1-,%n,1) == 0) {
    if ($v1 == $chr(32)) {
      var %t = %t $v2
    }
    else {
      var %t = %t $+ $+($chr(3),%c [ $+ [ %m ] ],$mid($1-,%n,1),$chr(3))
      $iif(%m == 7,set %m 1,inc %m)
    }