Expressions

----------------------------------------------------------------------

> module Expr           (  Ident, Expr(..), Prim(..)
>                       )
> where

----------------------------------------------------------------------

----------------------------------------------------------------------

> import Ratio
>
> import Prim           (  Ident, Prim(..)  )

----------------------------------------------------------------------

Definition for Expressions

----------------------------------------------------------------------

> data Expr             =  Var     Ident
>                       |  Lit     Rational
>                       |  AppPrim Prim  Int Expr
>                       |  AppFun  Ident Int Expr
>                       |  Negg    Expr
>                       |  Add     Expr Expr
>                       |  Sub     Expr Expr
>                       |  Mul     Expr Expr
>                       |  Div     Expr Expr
>                       |  Pow     Expr Expr
>                           deriving ( Eq, Show )

----------------------------------------------------------------------