Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl 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] ) Private [?] Run code