sorted :: School -> [(Grade, [Student])]
sorted = map (second S.toAscList) . M.toAscList
sorted :: School -> [(Grade, [Student])]
sorted = map (second S.toAscList) . M.toAscList
sorted = map (second S.toAscList) . M.toAscList