> module Paradise where
> import CompanyDatatypes
> increase :: Float -> Company -> Company
> increase f c = error "PolyP cannot handle the COmpany datatype"