import Control.Monad

subs = filterM $ const [True, False]

main = print $ subs [1..5]