test_rle_rec = TestCase $ do
 assertEqual "for (rle_rec aaabbc)" [(3,'a'),(2,'b'),(1,'c')] (rle_rec "aaabbc")
test_rle_rec = TestCase $ do
 assertEqual "for (rle_rec aaabbc)" [(3,'a'),(2,'b'),(1,'c')] (rle_rec "aaabbc")
test_rle_rec = TestCase $ do
 assertEqual "for (rle_rec aaabbc)" [(3,'a'),(2,'b'),(1,'c')] (rle_rec "aaabbc")