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

-- module SemanticData (MyType, defaultValue, makeUMns, makeMlt, makeDiv, makeAdd, makeSub, makeId) where
state15 p t v =
  case t of
    Ast    -> call0makeId p 0 3 1
    Sla    -> call0makeId p 0 3 1
    Pls    -> call0makeId p 0 3 1
    Mns    -> call0makeId p 0 3 1
    RParen -> call0makeId p 0 3 1
    End    -> call0makeId p 0 3 1
    _      -> (ParsingData (accepted p) True (acceptedValue p) (parsingStack p), False)

-- module SemanticData (MyType, defaultValue, makeUMns, makeMlt, makeDiv, makeAdd, makeSub, makeId) where
state15 p t v =
  case t of
    Ast    -> call0makeId p 0 3 1
    Sla    -> call0makeId p 0 3 1
    Pls    -> call0makeId p 0 3 1
    Mns    -> call0makeId p 0 3 1
    RParen -> call0makeId p 0 3 1
    End    -> call0makeId p 0 3 1
    _      -> (ParsingData (accepted p) True (acceptedValue p) (parsingStack p), False)

-- module SemanticData (MyType, defaultValue, makeUMns, makeMlt, makeDiv, makeAdd, makeSub, makeId) where