argsselect' (state,pkgs) ('S':s) =  (state {operation=SyncOperation} , pkgs  )                                                                                                      
argsselect' (state,pkgs) ('Q':s) =  (state {operation=QueryOperation} , pkgs  )                                                                                                     
                                                                                                                                                                                    
                                                                                                                                                                                    argsselect (state,pkgs) ('-':s)  =  argsselect' (state,pkgs ) s                                                                                                                     
argsselect (state,pkgs) s        =  (state,pkgs++[s] )