longestConsec strarr k
    | null strarr || k > length strarr || k <= 0 = ""
    | otherwise = maximumBy (comparing length) $ reverse $ map (concat . take k . flip drop strarr) [0,1..(length strarr - 1)]