main = run silly silly = cmd "cat" cat <@ files :-- "concatenate files" ! cmd "ls" ls <@ flag "-l" <@ files :-- "list files (long)" ! cmd "date" date :-- "print current date and time" ! cmd "help" help :-- "show usage"
files
...
files :: P [FilePath]