test_with_better_department_name =
  prop "a department must have a short capitalized name" $ runS generators $ do
    setSmallCompany
    setDepartmentName

    company <- forallS @Company

    let Just d = head $ departments company
    (T.length (departmentName d) <= 5) === True