module Data.Abs where

-- Haskell module generated by the BNF converter


newtype Ident = Ident String deriving (Eq,Ord,Show)
data Input =
   Input [Data]
  deriving (Eq,Ord,Show)

data Data =
   D [TokD]
  deriving (Eq,Ord,Show)

data TokD =
   T String [Pattern]
  deriving (Eq,Ord,Show)

data Pattern =
   PC Ident [Pattern]
 | Id Ident
  deriving (Eq,Ord,Show)