Source file edn_parser.ml

module MenhirBasics = struct
  
  exception Error
  
  let _eRR =
    fun _s ->
      raise Error
  
  type token = 
    | TRUE
    | TAG of (
# 10 "src/edn_parser.mly"
       (string)
# 16 "src/edn_parser.ml"
  )
    | SYMBOL of (
# 6 "src/edn_parser.mly"
       (string)
# 21 "src/edn_parser.ml"
  )
    | STRING of (
# 5 "src/edn_parser.mly"
       (string)
# 26 "src/edn_parser.ml"
  )
    | SET_START
    | RIGHT_PAREN
    | RIGHT_BRACK
    | RIGHT_BRACE
    | Q_TAG of (
# 11 "src/edn_parser.mly"
       (string * string)
# 35 "src/edn_parser.ml"
  )
    | Q_SYMBOL of (
# 7 "src/edn_parser.mly"
       (string * string)
# 40 "src/edn_parser.ml"
  )
    | Q_KEYWORD of (
# 9 "src/edn_parser.mly"
       (string * string)
# 45 "src/edn_parser.ml"
  )
    | NIL
    | LEFT_PAREN
    | LEFT_BRACK
    | LEFT_BRACE
    | KEYWORD of (
# 8 "src/edn_parser.mly"
       (string)
# 54 "src/edn_parser.ml"
  )
    | INT of (
# 1 "src/edn_parser.mly"
       (int)
# 59 "src/edn_parser.ml"
  )
    | FLOAT of (
# 4 "src/edn_parser.mly"
       (float)
# 64 "src/edn_parser.ml"
  )
    | FALSE
    | EOF
    | DECIMAL of (
# 3 "src/edn_parser.mly"
       (string)
# 71 "src/edn_parser.ml"
  )
    | BIG_INT of (
# 2 "src/edn_parser.mly"
       (string)
# 76 "src/edn_parser.ml"
  )
  
end

include MenhirBasics

type ('s, 'r) _menhir_state = 
  | MenhirState00 : ('s, _menhir_box_prog) _menhir_state
    (** State 00.
        Stack shape : .
        Start symbol: prog. *)

  | MenhirState02 : (('s, _menhir_box_prog) _menhir_cell1_TAG, _menhir_box_prog) _menhir_state
    (** State 02.
        Stack shape : TAG.
        Start symbol: prog. *)

  | MenhirState05 : (('s, _menhir_box_prog) _menhir_cell1_SET_START, _menhir_box_prog) _menhir_state
    (** State 05.
        Stack shape : SET_START.
        Start symbol: prog. *)

  | MenhirState06 : (('s, _menhir_box_prog) _menhir_cell1_rev_forms, _menhir_box_prog) _menhir_state
    (** State 06.
        Stack shape : rev_forms.
        Start symbol: prog. *)

  | MenhirState08 : (('s, _menhir_box_prog) _menhir_cell1_TAG, _menhir_box_prog) _menhir_state
    (** State 08.
        Stack shape : TAG.
        Start symbol: prog. *)

  | MenhirState11 : (('s, _menhir_box_prog) _menhir_cell1_SET_START, _menhir_box_prog) _menhir_state
    (** State 11.
        Stack shape : SET_START.
        Start symbol: prog. *)

  | MenhirState14 : (('s, _menhir_box_prog) _menhir_cell1_Q_TAG, _menhir_box_prog) _menhir_state
    (** State 14.
        Stack shape : Q_TAG.
        Start symbol: prog. *)

  | MenhirState18 : (('s, _menhir_box_prog) _menhir_cell1_LEFT_PAREN, _menhir_box_prog) _menhir_state
    (** State 18.
        Stack shape : LEFT_PAREN.
        Start symbol: prog. *)

  | MenhirState21 : (('s, _menhir_box_prog) _menhir_cell1_LEFT_BRACK, _menhir_box_prog) _menhir_state
    (** State 21.
        Stack shape : LEFT_BRACK.
        Start symbol: prog. *)

  | MenhirState24 : (('s, _menhir_box_prog) _menhir_cell1_LEFT_BRACE, _menhir_box_prog) _menhir_state
    (** State 24.
        Stack shape : LEFT_BRACE.
        Start symbol: prog. *)

  | MenhirState25 : ((('s, _menhir_box_prog) _menhir_cell1_LEFT_BRACE, _menhir_box_prog) _menhir_cell1_rev_map_fields, _menhir_box_prog) _menhir_state
    (** State 25.
        Stack shape : LEFT_BRACE rev_map_fields.
        Start symbol: prog. *)

  | MenhirState32 : (((('s, _menhir_box_prog) _menhir_cell1_LEFT_BRACE, _menhir_box_prog) _menhir_cell1_rev_map_fields, _menhir_box_prog) _menhir_cell1_value, _menhir_box_prog) _menhir_state
    (** State 32.
        Stack shape : LEFT_BRACE rev_map_fields value.
        Start symbol: prog. *)

  | MenhirState41 : (('s, _menhir_box_prog) _menhir_cell1_Q_TAG, _menhir_box_prog) _menhir_state
    (** State 41.
        Stack shape : Q_TAG.
        Start symbol: prog. *)

  | MenhirState45 : (('s, _menhir_box_prog) _menhir_cell1_LEFT_PAREN, _menhir_box_prog) _menhir_state
    (** State 45.
        Stack shape : LEFT_PAREN.
        Start symbol: prog. *)

  | MenhirState48 : (('s, _menhir_box_prog) _menhir_cell1_LEFT_BRACK, _menhir_box_prog) _menhir_state
    (** State 48.
        Stack shape : LEFT_BRACK.
        Start symbol: prog. *)

  | MenhirState51 : (('s, _menhir_box_prog) _menhir_cell1_LEFT_BRACE, _menhir_box_prog) _menhir_state
    (** State 51.
        Stack shape : LEFT_BRACE.
        Start symbol: prog. *)


and ('s, 'r) _menhir_cell1_rev_forms = 
  | MenhirCell1_rev_forms of 's * ('s, 'r) _menhir_state * (Edn_common.value list)

and ('s, 'r) _menhir_cell1_rev_map_fields = 
  | MenhirCell1_rev_map_fields of 's * ('s, 'r) _menhir_state * ((Edn_common.value * Edn_common.value) list)

and ('s, 'r) _menhir_cell1_value = 
  | MenhirCell1_value of 's * ('s, 'r) _menhir_state * (Edn_common.value)

and ('s, 'r) _menhir_cell1_LEFT_BRACE = 
  | MenhirCell1_LEFT_BRACE of 's * ('s, 'r) _menhir_state

and ('s, 'r) _menhir_cell1_LEFT_BRACK = 
  | MenhirCell1_LEFT_BRACK of 's * ('s, 'r) _menhir_state

and ('s, 'r) _menhir_cell1_LEFT_PAREN = 
  | MenhirCell1_LEFT_PAREN of 's * ('s, 'r) _menhir_state

and ('s, 'r) _menhir_cell1_Q_TAG = 
  | MenhirCell1_Q_TAG of 's * ('s, 'r) _menhir_state * (
# 11 "src/edn_parser.mly"
       (string * string)
# 187 "src/edn_parser.ml"
)

and ('s, 'r) _menhir_cell1_SET_START = 
  | MenhirCell1_SET_START of 's * ('s, 'r) _menhir_state

and ('s, 'r) _menhir_cell1_TAG = 
  | MenhirCell1_TAG of 's * ('s, 'r) _menhir_state * (
# 10 "src/edn_parser.mly"
       (string)
# 197 "src/edn_parser.ml"
)

and _menhir_box_prog = 
  | MenhirBox_prog of (Edn_common.value option) [@@unboxed]

let _menhir_action_01 =
  fun forms ->
    (
# 77 "src/edn_parser.mly"
                         ( List.rev forms )
# 208 "src/edn_parser.ml"
     : (Edn_common.value list))

let _menhir_action_02 =
  fun map_fields ->
    (
# 69 "src/edn_parser.mly"
                                        ( List.rev map_fields )
# 216 "src/edn_parser.ml"
     : ((Edn_common.value * Edn_common.value) list))

let _menhir_action_03 =
  fun () ->
    (
# 26 "src/edn_parser.mly"
              ( None )
# 224 "src/edn_parser.ml"
     : (Edn_common.value option))

let _menhir_action_04 =
  fun v ->
    (
# 27 "src/edn_parser.mly"
              ( Some v )
# 232 "src/edn_parser.ml"
     : (Edn_common.value option))

let _menhir_action_05 =
  fun () ->
    (
# 80 "src/edn_parser.mly"
                ( [] )
# 240 "src/edn_parser.ml"
     : (Edn_common.value list))

let _menhir_action_06 =
  fun forms v ->
    (
# 82 "src/edn_parser.mly"
    ( v :: forms )
# 248 "src/edn_parser.ml"
     : (Edn_common.value list))

let _menhir_action_07 =
  fun () ->
    (
# 72 "src/edn_parser.mly"
                ( [] )
# 256 "src/edn_parser.ml"
     : ((Edn_common.value * Edn_common.value) list))

let _menhir_action_08 =
  fun k map_fields v ->
    (
# 74 "src/edn_parser.mly"
    ( (k, v) :: map_fields )
# 264 "src/edn_parser.ml"
     : ((Edn_common.value * Edn_common.value) list))

let _menhir_action_09 =
  fun set ->
    (
# 32 "src/edn_parser.mly"
    ( `Set set )
# 272 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_10 =
  fun list ->
    (
# 34 "src/edn_parser.mly"
    ( `List list )
# 280 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_11 =
  fun vector ->
    (
# 36 "src/edn_parser.mly"
    ( `Vector vector )
# 288 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_12 =
  fun map ->
    (
# 38 "src/edn_parser.mly"
    ( `Assoc map )
# 296 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_13 =
  fun s ->
    (
# 40 "src/edn_parser.mly"
    ( `Symbol (None, s) )
# 304 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_14 =
  fun s ->
    (
# 42 "src/edn_parser.mly"
    ( `Symbol (Some (fst s), (snd s)) )
# 312 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_15 =
  fun s ->
    (
# 44 "src/edn_parser.mly"
    ( `Keyword (None, s) )
# 320 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_16 =
  fun s ->
    (
# 46 "src/edn_parser.mly"
    ( `Keyword (Some (fst s), (snd s)) )
# 328 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_17 =
  fun f t ->
    (
# 48 "src/edn_parser.mly"
    ( `Tag (None, t, f) )
# 336 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_18 =
  fun f t ->
    (
# 50 "src/edn_parser.mly"
    ( `Tag (Some (fst t), (snd t), f) )
# 344 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_19 =
  fun s ->
    (
# 52 "src/edn_parser.mly"
    ( `String s )
# 352 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_20 =
  fun i ->
    (
# 54 "src/edn_parser.mly"
    ( `Int i )
# 360 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_21 =
  fun i ->
    (
# 56 "src/edn_parser.mly"
    ( `BigInt i )
# 368 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_22 =
  fun x ->
    (
# 58 "src/edn_parser.mly"
    ( `Float x )
# 376 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_23 =
  fun x ->
    (
# 60 "src/edn_parser.mly"
    ( `Decimal x )
# 384 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_24 =
  fun () ->
    (
# 62 "src/edn_parser.mly"
    ( `Bool true )
# 392 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_25 =
  fun () ->
    (
# 64 "src/edn_parser.mly"
    ( `Bool false )
# 400 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_action_26 =
  fun () ->
    (
# 66 "src/edn_parser.mly"
    ( `Null )
# 408 "src/edn_parser.ml"
     : (Edn_common.value))

let _menhir_print_token : token -> string =
  fun _tok ->
    match _tok with
    | BIG_INT _ ->
        "BIG_INT"
    | DECIMAL _ ->
        "DECIMAL"
    | EOF ->
        "EOF"
    | FALSE ->
        "FALSE"
    | FLOAT _ ->
        "FLOAT"
    | INT _ ->
        "INT"
    | KEYWORD _ ->
        "KEYWORD"
    | LEFT_BRACE ->
        "LEFT_BRACE"
    | LEFT_BRACK ->
        "LEFT_BRACK"
    | LEFT_PAREN ->
        "LEFT_PAREN"
    | NIL ->
        "NIL"
    | Q_KEYWORD _ ->
        "Q_KEYWORD"
    | Q_SYMBOL _ ->
        "Q_SYMBOL"
    | Q_TAG _ ->
        "Q_TAG"
    | RIGHT_BRACE ->
        "RIGHT_BRACE"
    | RIGHT_BRACK ->
        "RIGHT_BRACK"
    | RIGHT_PAREN ->
        "RIGHT_PAREN"
    | SET_START ->
        "SET_START"
    | STRING _ ->
        "STRING"
    | SYMBOL _ ->
        "SYMBOL"
    | TAG _ ->
        "TAG"
    | TRUE ->
        "TRUE"

let _menhir_fail : unit -> 'a =
  fun () ->
    Printf.eprintf "Internal failure -- please contact the parser generator's developers.\n%!";
    assert false

include struct
  
  [@@@ocaml.warning "-4-37"]
  
  let _menhir_goto_prog : type  ttv_stack. ttv_stack -> _ -> _menhir_box_prog =
    fun _menhir_stack _v ->
      MenhirBox_prog _v
  
  let _menhir_run_63 : type  ttv_stack. ttv_stack -> _ -> _menhir_box_prog =
    fun _menhir_stack _v ->
      let v = _v in
      let _v = _menhir_action_04 v in
      _menhir_goto_prog _menhir_stack _v
  
  let rec _menhir_goto_value : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState00 ->
          _menhir_run_63 _menhir_stack _v
      | MenhirState02 ->
          _menhir_run_61 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState41 ->
          _menhir_run_60 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState06 ->
          _menhir_run_38 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState08 ->
          _menhir_run_37 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState14 ->
          _menhir_run_36 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState32 ->
          _menhir_run_33 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState25 ->
          _menhir_run_32 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_61 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_TAG -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_TAG (_menhir_stack, _menhir_s, t) = _menhir_stack in
      let f = _v in
      let _v = _menhir_action_17 f t in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_60 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_Q_TAG -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_Q_TAG (_menhir_stack, _menhir_s, t) = _menhir_stack in
      let f = _v in
      let _v = _menhir_action_18 f t in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_38 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_rev_forms -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_rev_forms (_menhir_stack, _menhir_s, forms) = _menhir_stack in
      let v = _v in
      let _v = _menhir_action_06 forms v in
      _menhir_goto_rev_forms _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_rev_forms : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match (_tok : MenhirBasics.token) with
      | TRUE ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_07 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState06
      | TAG _v_0 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_08 _menhir_stack _menhir_lexbuf _menhir_lexer _v_0 MenhirState06
      | SYMBOL _v_1 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_09 _menhir_stack _menhir_lexbuf _menhir_lexer _v_1 MenhirState06
      | STRING _v_2 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_10 _menhir_stack _menhir_lexbuf _menhir_lexer _v_2 MenhirState06
      | SET_START ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_11 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState06
      | Q_TAG _v_3 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_14 _menhir_stack _menhir_lexbuf _menhir_lexer _v_3 MenhirState06
      | Q_SYMBOL _v_4 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_15 _menhir_stack _menhir_lexbuf _menhir_lexer _v_4 MenhirState06
      | Q_KEYWORD _v_5 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_16 _menhir_stack _menhir_lexbuf _menhir_lexer _v_5 MenhirState06
      | NIL ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_17 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState06
      | LEFT_PAREN ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_18 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState06
      | LEFT_BRACK ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_21 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState06
      | LEFT_BRACE ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_24 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState06
      | KEYWORD _v_6 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_26 _menhir_stack _menhir_lexbuf _menhir_lexer _v_6 MenhirState06
      | INT _v_7 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_27 _menhir_stack _menhir_lexbuf _menhir_lexer _v_7 MenhirState06
      | FLOAT _v_8 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_28 _menhir_stack _menhir_lexbuf _menhir_lexer _v_8 MenhirState06
      | FALSE ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_29 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState06
      | DECIMAL _v_9 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_30 _menhir_stack _menhir_lexbuf _menhir_lexer _v_9 MenhirState06
      | BIG_INT _v_10 ->
          let _menhir_stack = MenhirCell1_rev_forms (_menhir_stack, _menhir_s, _v) in
          _menhir_run_31 _menhir_stack _menhir_lexbuf _menhir_lexer _v_10 MenhirState06
      | RIGHT_BRACE | RIGHT_BRACK | RIGHT_PAREN ->
          let forms = _v in
          let _v = _menhir_action_01 forms in
          _menhir_goto_forms _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_07 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_24 () in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_08 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _menhir_stack = MenhirCell1_TAG (_menhir_stack, _menhir_s, _v) in
      let _menhir_s = MenhirState08 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | TRUE ->
          _menhir_run_07 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | TAG _v ->
          _menhir_run_08 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | SYMBOL _v ->
          _menhir_run_09 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | STRING _v ->
          _menhir_run_10 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | SET_START ->
          _menhir_run_11 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | Q_TAG _v ->
          _menhir_run_14 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | Q_SYMBOL _v ->
          _menhir_run_15 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | Q_KEYWORD _v ->
          _menhir_run_16 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | NIL ->
          _menhir_run_17 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LEFT_PAREN ->
          _menhir_run_18 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LEFT_BRACK ->
          _menhir_run_21 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LEFT_BRACE ->
          _menhir_run_24 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | KEYWORD _v ->
          _menhir_run_26 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | INT _v ->
          _menhir_run_27 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | FLOAT _v ->
          _menhir_run_28 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | FALSE ->
          _menhir_run_29 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | DECIMAL _v ->
          _menhir_run_30 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | BIG_INT _v ->
          _menhir_run_31 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_09 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let s = _v in
      let _v = _menhir_action_13 s in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_10 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let s = _v in
      let _v = _menhir_action_19 s in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_11 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_SET_START (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState11 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      _menhir_reduce_05 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
  
  and _menhir_reduce_05 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok ->
      let _v = _menhir_action_05 () in
      _menhir_goto_rev_forms _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_14 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _menhir_stack = MenhirCell1_Q_TAG (_menhir_stack, _menhir_s, _v) in
      let _menhir_s = MenhirState14 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | TRUE ->
          _menhir_run_07 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | TAG _v ->
          _menhir_run_08 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | SYMBOL _v ->
          _menhir_run_09 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | STRING _v ->
          _menhir_run_10 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | SET_START ->
          _menhir_run_11 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | Q_TAG _v ->
          _menhir_run_14 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | Q_SYMBOL _v ->
          _menhir_run_15 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | Q_KEYWORD _v ->
          _menhir_run_16 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | NIL ->
          _menhir_run_17 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LEFT_PAREN ->
          _menhir_run_18 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LEFT_BRACK ->
          _menhir_run_21 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LEFT_BRACE ->
          _menhir_run_24 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | KEYWORD _v ->
          _menhir_run_26 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | INT _v ->
          _menhir_run_27 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | FLOAT _v ->
          _menhir_run_28 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | FALSE ->
          _menhir_run_29 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | DECIMAL _v ->
          _menhir_run_30 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | BIG_INT _v ->
          _menhir_run_31 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_15 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let s = _v in
      let _v = _menhir_action_14 s in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_16 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let s = _v in
      let _v = _menhir_action_16 s in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_17 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_26 () in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_18 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_LEFT_PAREN (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState18 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      _menhir_reduce_05 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
  
  and _menhir_run_21 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_LEFT_BRACK (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState21 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      _menhir_reduce_05 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
  
  and _menhir_run_24 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_LEFT_BRACE (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState24 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      _menhir_reduce_07 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
  
  and _menhir_reduce_07 : type  ttv_stack. ((ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_BRACE as 'stack) -> _ -> _ -> ('stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok ->
      let _v = _menhir_action_07 () in
      _menhir_goto_rev_map_fields _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_rev_map_fields : type  ttv_stack. ((ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_BRACE as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match (_tok : MenhirBasics.token) with
      | TRUE ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_07 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState25
      | TAG _v_0 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_08 _menhir_stack _menhir_lexbuf _menhir_lexer _v_0 MenhirState25
      | SYMBOL _v_1 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_09 _menhir_stack _menhir_lexbuf _menhir_lexer _v_1 MenhirState25
      | STRING _v_2 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_10 _menhir_stack _menhir_lexbuf _menhir_lexer _v_2 MenhirState25
      | SET_START ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_11 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState25
      | Q_TAG _v_3 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_14 _menhir_stack _menhir_lexbuf _menhir_lexer _v_3 MenhirState25
      | Q_SYMBOL _v_4 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_15 _menhir_stack _menhir_lexbuf _menhir_lexer _v_4 MenhirState25
      | Q_KEYWORD _v_5 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_16 _menhir_stack _menhir_lexbuf _menhir_lexer _v_5 MenhirState25
      | NIL ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_17 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState25
      | LEFT_PAREN ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_18 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState25
      | LEFT_BRACK ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_21 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState25
      | LEFT_BRACE ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_24 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState25
      | KEYWORD _v_6 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_26 _menhir_stack _menhir_lexbuf _menhir_lexer _v_6 MenhirState25
      | INT _v_7 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_27 _menhir_stack _menhir_lexbuf _menhir_lexer _v_7 MenhirState25
      | FLOAT _v_8 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_28 _menhir_stack _menhir_lexbuf _menhir_lexer _v_8 MenhirState25
      | FALSE ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_29 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState25
      | DECIMAL _v_9 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_30 _menhir_stack _menhir_lexbuf _menhir_lexer _v_9 MenhirState25
      | BIG_INT _v_10 ->
          let _menhir_stack = MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, _v) in
          _menhir_run_31 _menhir_stack _menhir_lexbuf _menhir_lexer _v_10 MenhirState25
      | RIGHT_BRACE ->
          let map_fields = _v in
          let _v = _menhir_action_02 map_fields in
          _menhir_goto_map_fields _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_26 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let s = _v in
      let _v = _menhir_action_15 s in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_27 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let i = _v in
      let _v = _menhir_action_20 i in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_28 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let x = _v in
      let _v = _menhir_action_22 x in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_29 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_25 () in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_30 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let x = _v in
      let _v = _menhir_action_23 x in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_31 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let i = _v in
      let _v = _menhir_action_21 i in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_map_fields : type  ttv_stack. ((ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_BRACE as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState51 ->
          _menhir_run_52 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState24 ->
          _menhir_run_34 _menhir_stack _menhir_lexbuf _menhir_lexer _v
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_52 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_BRACE -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_LEFT_BRACE (_menhir_stack, _menhir_s) = _menhir_stack in
      let map = _v in
      let _v = _menhir_action_12 map in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_34 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_BRACE -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let MenhirCell1_LEFT_BRACE (_menhir_stack, _menhir_s) = _menhir_stack in
      let map = _v in
      let _v = _menhir_action_12 map in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_forms : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState48 ->
          _menhir_run_49 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState45 ->
          _menhir_run_46 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState05 ->
          _menhir_run_39 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState21 ->
          _menhir_run_22 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState18 ->
          _menhir_run_19 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState11 ->
          _menhir_run_12 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_49 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_BRACK -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      match (_tok : MenhirBasics.token) with
      | RIGHT_BRACK ->
          let MenhirCell1_LEFT_BRACK (_menhir_stack, _menhir_s) = _menhir_stack in
          let vector = _v in
          let _v = _menhir_action_11 vector in
          _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_46 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_PAREN -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      match (_tok : MenhirBasics.token) with
      | RIGHT_PAREN ->
          let MenhirCell1_LEFT_PAREN (_menhir_stack, _menhir_s) = _menhir_stack in
          let list = _v in
          let _v = _menhir_action_10 list in
          _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_39 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_SET_START -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      match (_tok : MenhirBasics.token) with
      | RIGHT_BRACE ->
          let MenhirCell1_SET_START (_menhir_stack, _menhir_s) = _menhir_stack in
          let set = _v in
          let _v = _menhir_action_09 set in
          _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_22 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_BRACK -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      match (_tok : MenhirBasics.token) with
      | RIGHT_BRACK ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let MenhirCell1_LEFT_BRACK (_menhir_stack, _menhir_s) = _menhir_stack in
          let vector = _v in
          let _v = _menhir_action_11 vector in
          _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_19 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_PAREN -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      match (_tok : MenhirBasics.token) with
      | RIGHT_PAREN ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let MenhirCell1_LEFT_PAREN (_menhir_stack, _menhir_s) = _menhir_stack in
          let list = _v in
          let _v = _menhir_action_10 list in
          _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_12 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_SET_START -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      match (_tok : MenhirBasics.token) with
      | RIGHT_BRACE ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let MenhirCell1_SET_START (_menhir_stack, _menhir_s) = _menhir_stack in
          let set = _v in
          let _v = _menhir_action_09 set in
          _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_37 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_TAG -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_TAG (_menhir_stack, _menhir_s, t) = _menhir_stack in
      let f = _v in
      let _v = _menhir_action_17 f t in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_36 : type  ttv_stack. (ttv_stack, _menhir_box_prog) _menhir_cell1_Q_TAG -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_Q_TAG (_menhir_stack, _menhir_s, t) = _menhir_stack in
      let f = _v in
      let _v = _menhir_action_18 f t in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_33 : type  ttv_stack. (((ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_BRACE, _menhir_box_prog) _menhir_cell1_rev_map_fields, _menhir_box_prog) _menhir_cell1_value -> _ -> _ -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_value (_menhir_stack, _, k) = _menhir_stack in
      let MenhirCell1_rev_map_fields (_menhir_stack, _menhir_s, map_fields) = _menhir_stack in
      let v = _v in
      let _v = _menhir_action_08 k map_fields v in
      _menhir_goto_rev_map_fields _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_32 : type  ttv_stack. (((ttv_stack, _menhir_box_prog) _menhir_cell1_LEFT_BRACE, _menhir_box_prog) _menhir_cell1_rev_map_fields as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_value (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | TRUE ->
          _menhir_run_07 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState32
      | TAG _v_0 ->
          _menhir_run_08 _menhir_stack _menhir_lexbuf _menhir_lexer _v_0 MenhirState32
      | SYMBOL _v_1 ->
          _menhir_run_09 _menhir_stack _menhir_lexbuf _menhir_lexer _v_1 MenhirState32
      | STRING _v_2 ->
          _menhir_run_10 _menhir_stack _menhir_lexbuf _menhir_lexer _v_2 MenhirState32
      | SET_START ->
          _menhir_run_11 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState32
      | Q_TAG _v_3 ->
          _menhir_run_14 _menhir_stack _menhir_lexbuf _menhir_lexer _v_3 MenhirState32
      | Q_SYMBOL _v_4 ->
          _menhir_run_15 _menhir_stack _menhir_lexbuf _menhir_lexer _v_4 MenhirState32
      | Q_KEYWORD _v_5 ->
          _menhir_run_16 _menhir_stack _menhir_lexbuf _menhir_lexer _v_5 MenhirState32
      | NIL ->
          _menhir_run_17 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState32
      | LEFT_PAREN ->
          _menhir_run_18 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState32
      | LEFT_BRACK ->
          _menhir_run_21 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState32
      | LEFT_BRACE ->
          _menhir_run_24 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState32
      | KEYWORD _v_6 ->
          _menhir_run_26 _menhir_stack _menhir_lexbuf _menhir_lexer _v_6 MenhirState32
      | INT _v_7 ->
          _menhir_run_27 _menhir_stack _menhir_lexbuf _menhir_lexer _v_7 MenhirState32
      | FLOAT _v_8 ->
          _menhir_run_28 _menhir_stack _menhir_lexbuf _menhir_lexer _v_8 MenhirState32
      | FALSE ->
          _menhir_run_29 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState32
      | DECIMAL _v_9 ->
          _menhir_run_30 _menhir_stack _menhir_lexbuf _menhir_lexer _v_9 MenhirState32
      | BIG_INT _v_10 ->
          _menhir_run_31 _menhir_stack _menhir_lexbuf _menhir_lexer _v_10 MenhirState32
      | _ ->
          _eRR ()
  
  let _menhir_run_01 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok ->
      let _v = _menhir_action_24 () in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_03 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let s = _v in
      let _v = _menhir_action_13 s in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_04 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let s = _v in
      let _v = _menhir_action_19 s in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_05 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_SET_START (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState05 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      _menhir_reduce_05 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
  
  let _menhir_run_42 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let s = _v in
      let _v = _menhir_action_14 s in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_43 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let s = _v in
      let _v = _menhir_action_16 s in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_44 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok ->
      let _v = _menhir_action_26 () in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_45 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_LEFT_PAREN (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState45 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      _menhir_reduce_05 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
  
  let _menhir_run_48 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_LEFT_BRACK (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState48 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      _menhir_reduce_05 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
  
  let _menhir_run_51 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_LEFT_BRACE (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState51 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      _menhir_reduce_07 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
  
  let _menhir_run_54 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let s = _v in
      let _v = _menhir_action_15 s in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_55 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let i = _v in
      let _v = _menhir_action_20 i in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_56 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let x = _v in
      let _v = _menhir_action_22 x in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_57 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok ->
      let _v = _menhir_action_25 () in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_58 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let x = _v in
      let _v = _menhir_action_23 x in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_59 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let i = _v in
      let _v = _menhir_action_21 i in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let rec _menhir_run_02 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _menhir_stack = MenhirCell1_TAG (_menhir_stack, _menhir_s, _v) in
      let _menhir_s = MenhirState02 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | TRUE ->
          _menhir_run_01 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
      | TAG _v ->
          _menhir_run_02 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | SYMBOL _v ->
          _menhir_run_03 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | STRING _v ->
          _menhir_run_04 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | SET_START ->
          _menhir_run_05 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | Q_TAG _v ->
          _menhir_run_41 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | Q_SYMBOL _v ->
          _menhir_run_42 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | Q_KEYWORD _v ->
          _menhir_run_43 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | NIL ->
          _menhir_run_44 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
      | LEFT_PAREN ->
          _menhir_run_45 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LEFT_BRACK ->
          _menhir_run_48 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LEFT_BRACE ->
          _menhir_run_51 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | KEYWORD _v ->
          _menhir_run_54 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | INT _v ->
          _menhir_run_55 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | FLOAT _v ->
          _menhir_run_56 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | FALSE ->
          _menhir_run_57 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
      | DECIMAL _v ->
          _menhir_run_58 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | BIG_INT _v ->
          _menhir_run_59 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_41 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_prog) _menhir_state -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _menhir_stack = MenhirCell1_Q_TAG (_menhir_stack, _menhir_s, _v) in
      let _menhir_s = MenhirState41 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | TRUE ->
          _menhir_run_01 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
      | TAG _v ->
          _menhir_run_02 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | SYMBOL _v ->
          _menhir_run_03 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | STRING _v ->
          _menhir_run_04 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | SET_START ->
          _menhir_run_05 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | Q_TAG _v ->
          _menhir_run_41 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | Q_SYMBOL _v ->
          _menhir_run_42 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | Q_KEYWORD _v ->
          _menhir_run_43 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | NIL ->
          _menhir_run_44 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
      | LEFT_PAREN ->
          _menhir_run_45 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LEFT_BRACK ->
          _menhir_run_48 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LEFT_BRACE ->
          _menhir_run_51 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | KEYWORD _v ->
          _menhir_run_54 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | INT _v ->
          _menhir_run_55 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | FLOAT _v ->
          _menhir_run_56 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | FALSE ->
          _menhir_run_57 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s _tok
      | DECIMAL _v ->
          _menhir_run_58 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | BIG_INT _v ->
          _menhir_run_59 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  let _menhir_run_00 : type  ttv_stack. ttv_stack -> _ -> _ -> _menhir_box_prog =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | TRUE ->
          _menhir_run_01 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState00 _tok
      | TAG _v ->
          _menhir_run_02 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00
      | SYMBOL _v ->
          _menhir_run_03 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00 _tok
      | STRING _v ->
          _menhir_run_04 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00 _tok
      | SET_START ->
          _menhir_run_05 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState00
      | Q_TAG _v ->
          _menhir_run_41 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00
      | Q_SYMBOL _v ->
          _menhir_run_42 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00 _tok
      | Q_KEYWORD _v ->
          _menhir_run_43 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00 _tok
      | NIL ->
          _menhir_run_44 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState00 _tok
      | LEFT_PAREN ->
          _menhir_run_45 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState00
      | LEFT_BRACK ->
          _menhir_run_48 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState00
      | LEFT_BRACE ->
          _menhir_run_51 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState00
      | KEYWORD _v ->
          _menhir_run_54 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00 _tok
      | INT _v ->
          _menhir_run_55 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00 _tok
      | FLOAT _v ->
          _menhir_run_56 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00 _tok
      | FALSE ->
          _menhir_run_57 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState00 _tok
      | EOF ->
          let _v = _menhir_action_03 () in
          _menhir_goto_prog _menhir_stack _v
      | DECIMAL _v ->
          _menhir_run_58 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00 _tok
      | BIG_INT _v ->
          _menhir_run_59 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState00 _tok
      | _ ->
          _eRR ()
  
end

let prog =
  fun _menhir_lexer _menhir_lexbuf ->
    let _menhir_stack = () in
    let MenhirBox_prog v = _menhir_run_00 _menhir_stack _menhir_lexbuf _menhir_lexer in
    v