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