implementation module Mul

import StdEnv
import main

evalMul :: Expr -> Int
evalMul (e1 *. e2) = eval e1 - eval e2
evalMul x = abort "help?"

pprintMul :: Expr -> String
pprintMul (e1 *. e2) = pprint e1 +++ " * " +++ pprint e2
pprintMul x = abort "help?"