combos n ls = filter ((>= n) . length)
            . map concat
            . sequence
            . map (([]:) . map return)
            $ ls