Subset generation

module Main where

main = print (subset "abcd")

subset :: [Char] -> [[Char]]
subset [] = [[]]

subset (x:xs) = subset(xs) ++ [x:l | l <- subset(xs)]