> module GShowExt (gshowsCompany) where
> import CompanyDatatypes(Company)

> gshowsCompany :: Company -> String
> gshowsCompany c = error "PolyP does not handle the Company d.t. group"