Enumerate all substrings.

substring :: String -> [String]
substring [] = []
substring xs = subs xs ++ substring (tail xs)
        where
           subs xs = foldl step [] xs
           step [] a = [[a]]
           step acc a = (head acc ++ [a]) : acc