type Name = String
type Iden = Int
type Mark = Int
type Rank = Int
-- Tabellen
type Codes = [(Name,Iden)]
type Marks = [(Iden,Mark)]
type Ranks = [(Name,Mark,Rank)]

classlist :: (Codes,Marks) -> Ranks
classlist = rank . collate

display   :: Ranks -> String