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