state9 p t v =
  case t of
    Ast    -> call0makeMlt p 0 3 0 2
    Sla    -> call0makeMlt p 0 3 0 2
    Pls    -> call0makeMlt p 0 3 0 2
    Mns    -> call0makeMlt p 0 3 0 2
    RParen -> call0makeMlt p 0 3 0 2
    End    -> call0makeMlt p 0 3 0 2
    _      -> (ParsingData (accepted p) True (acceptedValue p) (parsingStack p), False)
state9 p t v =
  case t of
    Ast    -> call0makeMlt p 0 3 0 2
    Sla    -> call0makeMlt p 0 3 0 2
    Pls    -> call0makeMlt p 0 3 0 2
    Mns    -> call0makeMlt p 0 3 0 2
    RParen -> call0makeMlt p 0 3 0 2
    End    -> call0makeMlt p 0 3 0 2
    _      -> (ParsingData (accepted p) True (acceptedValue p) (parsingStack p), False)
state9 p t v =
  case t of
    Ast    -> call0makeMlt p 0 3 0 2
    Sla    -> call0makeMlt p 0 3 0 2
    Pls    -> call0makeMlt p 0 3 0 2
    Mns    -> call0makeMlt p 0 3 0 2
    RParen -> call0makeMlt p 0 3 0 2
    End    -> call0makeMlt p 0 3 0 2
    _      -> (ParsingData (accepted p) True (acceptedValue p) (parsingStack p), False)