let parse_command lexbuf =
  Sqml_parser.cmd Sqml_lexer.token lexbuf