sexpr.js

const whitespaceSymbol = Symbol('whitespace');
const whitespace = rawWhitespace.map(() => whitespaceSymbol);

const param = (param) => composeParsers([param, whitespace]);

// const

const sexpr = (fn) => {
    const [head, ...tail] = fn();
    const params = sequenceOf([head, ...tail.map(param)]);
    return (
        composeParsers([
            takeLeft(params) (sequenceOf([optionalWhitespace, char(')')])),
            sequenceOf([char('('), optionalWhitespace]),
        ])
    );
};


const comment = sequenceOf([
    char(';'),
    regex(/^.*$/m)
]).map((comment) => ({ type: 'comment', comment: comment.join('') }));

const info = sexpr(() => [ str('info') ]).map(() => ({ type: 'info' }));

const number = choice([
    sequenceOf([
        char('#'),
        digits,
    ]).map(([, digits]) => +digits),
    sequenceOf([
        str('#$'),
        regex(/^[A-F0-9]+/i),
    ]).map(([, hex]) => +`0x${hex}`),
]);