33     | DeriveType InitExpression 

    33     | DeriveType InitExpression 

    34     | VoidType

    34     | VoidType

    35     deriving Show

    35     deriving Show

    36 data Range = Range Identifier

    36 data Range = Range Identifier

    37            | RangeFromTo InitExpression InitExpression

    37            | RangeFromTo InitExpression InitExpression

    38     deriving Show

    39     deriving Show

    39 data Initialize = Initialize String

    40 data Initialize = Initialize String

    40     deriving Show

    41     deriving Show

    41 data Finalize = Finalize String

    42 data Finalize = Finalize String

    42     deriving Show

    43     deriving Show

   100     | BTString

   101     | BTString

   101     | BTInt

   102     | BTInt

   102     | BTBool

   103     | BTBool

   103     | BTFloat

   104     | BTFloat

   104     | BTRecord [(String, BaseType)]

   105     | BTRecord [(String, BaseType)]

   106     | BTFunction BaseType

   107     | BTFunction BaseType

   107     | BTPointerTo BaseType

   108     | BTPointerTo BaseType

   108     | BTUnresolved String

   109     | BTUnresolved String

   109     | BTSet BaseType

   110     | BTSet BaseType

   110     | BTEnum [String]

   111     | BTEnum [String]