findReversePalindromes :: [Int] -> String -> [(Int, Int)]
findReversePalindromes ls s =
    let allSequences    = concat . map (\l -> findSequencesOfLength l s) $ ls
        revPSequences   = filter (isReversePalindrome . snd) allSequences
    in map (\(i, ss) -> (i, length ss)) revPSequences
findReversePalindromes :: [Int] -> String -> [(Int, Int)]
findReversePalindromes ls s =
    let allSequences    = concat . map (\l -> findSequencesOfLength l s) $ ls
        revPSequences   = filter (isReversePalindrome . snd) allSequences
    in map (\(i, ss) -> (i, length ss)) revPSequences
findReversePalindromes ls s =
    let allSequences    = concat . map (\l -> findSequencesOfLength l s) $ ls
        revPSequences   = filter (isReversePalindrome . snd) allSequences
    in map (\(i, ss) -> (i, length ss)) revPSequences