add :: Grade -> Student -> School -> School
add gradeNum student = M.insertWith S.union gradeNum (S.singleton student)
add :: Grade -> Student -> School -> School
add gradeNum student = M.insertWith S.union gradeNum (S.singleton student)
add gradeNum student = M.insertWith S.union gradeNum (S.singleton student)