clientName (Individual (Person fName lName _) _) = fName ++ " " ++ lName
clientName (Individual (Person fName lName _) _) = fName ++ " " ++ lName
clientName (Individual (Person fName lName _) _) = fName ++ " " ++ lName