findSequencesOfLengthFrom i n s
    | length s < n  = []
    | otherwise     = (i, current) : recursive
        where 
            current     = take n s
            recursive   = findSequencesOfLengthFrom (i + 1) n (drop 1 s)
findSequencesOfLengthFrom i n s
    | length s < n  = []
    | otherwise     = (i, current) : recursive
        where 
            current     = take n s
            recursive   = findSequencesOfLengthFrom (i + 1) n (drop 1 s)
findSequencesOfLengthFrom i n s
    | length s < n  = []
    | otherwise     = (i, current) : recursive
        where 
            current     = take n s
            recursive   = findSequencesOfLengthFrom (i + 1) n (drop 1 s)