module Util0Type where {

data Value = Num Double
             deriving (Eq, Show);

showValue (Num d) = show d;

-- Expr
data Expr = Mult Expr Expr | Add Expr Expr | Const Value 
            deriving (Eq, Show);
}