findSequencesOfLength :: Int -> [a] -> [(Int, [a])]
findSequencesOfLength = findSequencesOfLengthFrom 1
findSequencesOfLength :: Int -> [a] -> [(Int, [a])]
findSequencesOfLength = findSequencesOfLengthFrom 1
findSequencesOfLength = findSequencesOfLengthFrom 1