-- program to generate all subsequences of a sequence
import Control.Monad (filterM)
findSubSequences :: String -> [String]
findSubSequences = filterM $ const [True, False]
main = traverse print $ findSubSequences "abc"