clientName client = case client of
                      GovOrg name                 -> name
                      Company name id person resp -> name
                      Individual person ads       ->
                        case person of
                          Person fNm lNm gender   -> fNm ++ " " ++ lNm--}