fork(6) download
  1. import List
  2. import Control.Monad
  3. subs = filterM $ const [True, False]
  4. main = print $ sort $ subs [1..3]
  5.  
Success #stdin #stdout 0.01s 3612KB
stdin
Standard input is empty
stdout
[[],[1],[1,2],[1,2,3],[1,3],[2],[2,3],[3]]