OMetaJS: Repeat Higher Order

repeat.js

ometa Test {
    repeat :n :p = ?(n == 0) -> ('') // base case
                 | apply(p):l repeat(n - 1, p):r -> ((r.length > 0) ? [l].concat(r) : [l]), // concat the recursive matches
    tom = "TOM",
    repeatTOM = repeat(3, 'tom')
}

Test.matchAll(
    'TOMTOMTOM',
    'repeatTOM'
);

// result: ["TOM", "TOM", "TOM"]

repeat2.js

ometa Repetition {
    tom = "TOM",
    top = repeat("tom", 4)
}

Repetition.repeat = function(rule, count) {
  var ret = [];
  for(var i=0; i<count; i++) {
     ret.push(this._apply(rule));
  }
  return ret;
};

Repetition.matchAll(
    "TOMTOMTOMTOM",
    "top"
);

// result: ["TOM", "TOM", "TOM", "TOM"]