distribute list =
  map return list :
    (map (\x -> filter (not . null) $ (list \\ x) : return x)
         . filter (\x -> length x > 1) $ subsequences list
         )