pairwise l = zip l $ drop 1 l

isSequential (a, b) =
    let a' = ord a
        b' = ord b
    in  b' == a'+1

ascendingSeq l = let p = pairwise l in span isSequential p