-- | Evaluate a `SimpleExpr` value.
evalSimpleExpr :: SimpleExpr -> Int
evalSimpleExpr (Fix expr) = evalExpr evalBinOp evalSimpleExpr expr
evalSimpleExpr :: SimpleExpr -> Int
evalSimpleExpr (Fix expr) = evalExpr evalBinOp evalSimpleExpr expr
evalSimpleExpr (Fix expr) = evalExpr evalBinOp evalSimpleExpr expr