main' :: [String] -> IO ()
main' [oldCartridgeVersion] = do
    versions <- fmap parseAndSortVersions getContents
    putStr . encode $ omg (bumpVerStr oldCartridgeVersion) versions
main' :: [String] -> IO ()
main' [oldCartridgeVersion] = do
    versions <- fmap parseAndSortVersions getContents
    putStr . encode $ omg (bumpVerStr oldCartridgeVersion) versions
main' [oldCartridgeVersion] = do
    versions <- fmap parseAndSortVersions getContents
    putStr . encode $ omg (bumpVerStr oldCartridgeVersion) versions