motifs.hs

motifs :: Int -> [a] -> [[a]]
motifs _ []           = []
motifs n s@(b:bs)
    | (length s >= n) = (take n s):(motifs n bs)
    | otherwise       = []