module Main where

import Distribution.RpmDeps
import System
import Monad

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