// define operators here
// arguments: name, priority (>0), associativity ('left', 'right')
operator('+', 1, 'left');
operator('^', 3, 'left');
operator('-', 1, 'left');
operator('*', 2, 'left');
operator('/', 2, 'left');
operator('**', 3, 'right');
eparse> 2+2*2**2**2*2+2
tokens: [number(2), op(+), number(2), op(*), number(2), op(**), number
(2), op(**), number(2), op(*), number(2), op(+), number(2)]
result: [[2 + [[2 * [2 ** [2 ** 2]]] * 2]] + 2]
GPLv3
Paweł Marczewski wrote almost codes.