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