countdown2 :: Int -> [Int] -> (Expr, Value)
countdown2 n = nearest n . concatMap mkExprs . subseqs
countdown2 :: Int -> [Int] -> (Expr, Value)
countdown2 n = nearest n . concatMap mkExprs . subseqs
countdown2 n = nearest n . concatMap mkExprs . subseqs