1readerBench doc name =
2  runPure $ case (getReader name, getWriter name) of
3    ( Right (TextReader r, rexts),
4      Right (TextWriter w, wexts)
5      ) -> undefined
6
7f xs = case xs of
8  [ a,
9    b
10    ] -> a + b
11
12g xs = case xs of
13  ( a
14      : bs
15    ) -> a + b
16