p10 s = ((+1) . max . map (#)) longest_true_seq
        where
        longest_true_seq
                = (filter ((=True).hd) . group . zipWith (<)) (s, tl s)