evalSimpleExpr :: SimpleExpr -> Int
evalSimpleExpr (Fix (ExprInt i))        = i
evalSimpleExpr :: SimpleExpr -> Int
evalSimpleExpr (Fix (ExprInt i))        = i
evalSimpleExpr (Fix (ExprInt i))        = i