let
parse_command lexbuf =
Sqml_parser
.cmd
Sqml_lexer
.token lexbuf