table :: Ex.OperatorTable String () Identity Expr
table = [[
          infixOp "succ" Succ
        , infixOp "pred" Pred
        , infixOp "iszero" IsZero
        ]]
table :: Ex.OperatorTable String () Identity Expr
table = [[
          infixOp "succ" Succ
        , infixOp "pred" Pred
        , infixOp "iszero" IsZero
        ]]
table = [[
          infixOp "succ" Succ
        , infixOp "pred" Pred
        , infixOp "iszero" IsZero
        ]]