implementation module Sub

import StdEnv
import main
import Mul

evalSub :: Expr -> Int
evalSub (e1 -. e2) = eval e1 - eval e2
evalSub x = evalMul x

pprintSub :: Expr -> String
pprintSub (e1 -. e2) = pprint e1 +++ " - " +++ pprint e2
pprintSub x = pprintMul x