let commandsequence (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (yyparse yytables 4 lexfun lexbuf : unit)