type token = | CONST of (string) | IDENT of (Types.symbol) | LPAR | RPAR | SEQ | SPLIT | MERGE | PAR | REC | EOF | POINT val main : (Lexing.lexbuf -> token) -> Lexing.lexbuf -> Types.faust_exp