getopt1 :: ([Opt],[String]) -> [String] -> String -> ([Opt],[String])
getopt1 (a1,a2) []     _    = (reverse a1,reverse a2)
getopt1 :: ([Opt],[String]) -> [String] -> String -> ([Opt],[String])
getopt1 (a1,a2) []     _    = (reverse a1,reverse a2)
getopt1 (a1,a2) []     _    = (reverse a1,reverse a2)