getopt :: [String] -> String -> ([Opt],[String])
getopt args opts = getopt1 ([],[]) args opts
getopt :: [String] -> String -> ([Opt],[String])
getopt args opts = getopt1 ([],[]) args opts
getopt args opts = getopt1 ([],[]) args opts