infixes :: Ord a => [a] -> [[a]]
infixes l = map head . group . sort $ inits l >>= tails
infixes :: Ord a => [a] -> [[a]]
infixes l = map head . group . sort $ inits l >>= tails
infixes l = map head . group . sort $ inits l >>= tails