transform :: Doc -> Doc
transform
  = lines                >.>     --  Doc        ->  [Regel]
    (map readEntry)      >.>     --  [Regel]    ->  [Entry]
    sorteerOpNaam        >.>     --  [Entry]    ->  [Entry]
    groepeer             >.>     --  [Entry]    ->  [[Entry]]
    (map berekenScore)   >.>     --  [[Entry]]  ->  [Score]
    sorteerOpScore       >.>     --  [Score]    ->  [Score]
    (map showScore)      >.>     --  [Score]    ->  [Regel]
    unlines                      --  [Regel]    ->  [Doc]