main :: IO ()
main = withConnection $ \conn ->
  pages conn >>= scores conn . names >>= pretty
main :: IO ()
main = withConnection $ \conn ->
  pages conn >>= scores conn . names >>= pretty
main = withConnection $ \conn ->
  pages conn >>= scores conn . names >>= pretty