Brainfuck in sweet.js

brainfuck.js

macro bf {
  case ($body ...) => {
    eval('var p = 0, b = [], buf = new Buffer(1);');
    _bf($body ...);
  }
}
macro _bf {
  case (>) => {
    eval('p++;');
  }
  case (<) => {
    eval('p--;');
  }
  case (+) => {
    eval('b[p] = -~b[p];');
  }
  case (-) => {
    eval('b[p] = ~-b[p];');
  }
  case (.) => {
    eval('process.stdout.write(String.fromCharCode(b[p]));');
  }
  case (,) => {
    eval('if (require(\'fs\').readSync(process.stdin.fd, buf, 0, 1) > 0) { b[p] = buf[0]; }');
  }
  case ([]) => {
    while (eval('b[p]')) {}
  }
  case ([$body ...]) => {
    while (eval('b[p]')) {
      _bf($body ...);
    }
  }
  case (>>) => {
    _bf(>) _bf(>)
  }
  case (>>>) => {
    _bf(>) _bf(>) _bf(>)
  }
  case (> $rest ...) => {
    _bf(>) _bf($rest ...)
  }
  case (>> $rest ...) => {
    _bf(>) _bf(>) _bf($rest ...)
  }
  case (>>> $rest ...) => {
    _bf(>) _bf(>) _bf(>) _bf($rest ...)
  }
  case (<<) => {
    _bf(<) _bf(<)
  }
  case (< $rest ...) => {
    _bf(<) _bf($rest ...)
  }
  case (<< $rest ...) => {
    _bf(<) _bf(<) _bf($rest ...)
  }
  case (++) => {
    _bf(+) _bf(+)
  }
  case (+ $rest ...) => {
    _bf(+) _bf($rest ...)
  }
  case (++ $rest ...) => {
    _bf(+) _bf(+) _bf($rest ...)
  }
  case (--) => {
    _bf(-) _bf(-)
  }
  case (- $rest ...) => {
    _bf(-) _bf($rest ...)
  }
  case (-- $rest ...) => {
    _bf(-) _bf(-) _bf($rest ...)
  }
  case (. $rest ...) => {
    _bf(.) _bf($rest ...)
  }
  case (. $rest ...) => {
    _bf(.) _bf($rest ...)
  }
  // case (... $rest ...) => {
  //   _bf(.) _bf(.) _bf(.) _bf($rest ...)
  // }
  case (, $rest ...) => {
    _bf(,) _bf($rest ...)
  }
  case ([] $rest ...) => {
    _bf([]) _bf($rest ...)
  }
  case ([$body ...] $rest ...) => {
    _bf([$body ...]) _bf($rest ...)
  }
}

bf(+++++++++[>++++++++>+++++++++++>+++++<<<-]>.>++.+++++++..+++.>-.
------------.<++++++++.--------.+++.------.--------.>+.)