3 import Data.Traversable

     3 import Data.Traversable

     4 

     4 

     5 data PascalUnit =

     5 data PascalUnit =

     6     Program Identifier Implementation Phrase

     6     Program Identifier Implementation Phrase

     7     | Unit Identifier Interface Implementation (Maybe Initialize) (Maybe Finalize)

     7     | Unit Identifier Interface Implementation (Maybe Initialize) (Maybe Finalize)

     9     deriving Show

     9     deriving Show

    10 data Interface = Interface Uses TypesAndVars

    10 data Interface = Interface Uses TypesAndVars

    11     deriving Show

    11     deriving Show

    12 data Implementation = Implementation Uses TypesAndVars

    12 data Implementation = Implementation Uses TypesAndVars

    13     deriving Show

    13     deriving Show