let yyact = [|
  (fun _ -> failwith "parser")
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 1 : 'faust_exp) in
    Obj.repr(
# 16 "parser.mly"
                                      ( _1 )
# 167 "parser.ml"
               : Types.faust_exp))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 17 "parser.mly"
                                      ( Const(N (int_of_string _1)) )
# 174 "parser.ml"
               : 'faust_exp))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in
    Obj.repr(
# 18 "parser.mly"
                                      ( Const(R (float_of_string _1)) )
# 181 "parser.ml"
               : 'faust_exp))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : string) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 19 "parser.mly"
                                      ( Const(R (float_of_string (_1 ^ "." ^ _3))) )
# 189 "parser.ml"
               : 'faust_exp))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 20 "parser.mly"
                                      ( Ident(symbol_of_string _1) )
# 196 "parser.ml"
               : 'faust_exp))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 1 : 'faust_exp) in
    Obj.repr(
# 21 "parser.mly"
                                      ( _2 )
# 203 "parser.ml"
               : 'faust_exp))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : 'faust_exp) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : 'faust_exp) in
    Obj.repr(
# 22 "parser.mly"
                                      ( Par(_1,_3) )
# 211 "parser.ml"
               : 'faust_exp))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : 'faust_exp) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : 'faust_exp) in
    Obj.repr(
# 23 "parser.mly"
                                      ( Split(_1,_3) )
# 219 "parser.ml"
               : 'faust_exp))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : 'faust_exp) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : 'faust_exp) in
    Obj.repr(
# 24 "parser.mly"
                                      ( Merge(_1,_3) )
# 227 "parser.ml"
               : 'faust_exp))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : 'faust_exp) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : 'faust_exp) in
    Obj.repr(
# 25 "parser.mly"
                                      ( Seq(_1,_3) )
# 235 "parser.ml"
               : 'faust_exp))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : 'faust_exp) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : 'faust_exp) in
    Obj.repr(
# 26 "parser.mly"
                                      ( Rec(_1,_3) )
# 243 "parser.ml"
               : 'faust_exp))
(* Entry main *)
; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0)))
|]