array_itasks/main.dcl

   1 definition module main
   2
   3 :: Expr
   4         = Lit Int
   5         | (+.) infixl 6 Expr Expr
   6         | ..
   7
   8 eval   :: Expr -> Int
   9 pprint :: Expr -> String