import System.Environment import System.Debian.Binary main :: IO () main = getArgs >>= flip updatePackage (getChar >> return ()) . head