module Main where

import Distribution.RpmDeps
import System
import Monad

main = do
    args <- getArgs
    prov <- case args of
        [] -> rpmprovides Nothing
        _ -> do 
            p <- mapM (\x -> rpmprovides $ Just x) args
            return $ foldl (++) [] p
    putStrLn $ unlines $ prov