rgd :: [Arg ArgIndex]
argd = [ 
  Arg {
    argIndex = ArgCols,
    argAbbr = Just 'c',
    argName = Just "cols",
    argData = argDataOptional "column-spec" ArgtypeString,
    argDesc = "Expression describing columns to select." },
  Arg {
    argIndex = ArgRows,
    argAbbr = Just 'r',
    argName = Just "rows",
    argData = argDataOptional "row-spec" ArgtypeString,
    argDesc = "Expression describing rows to select." },
  Arg {
    argIndex = ArgSource,
    argAbbr = Nothing,
    argName = Nothing,
    argData = argDataOptional "csv-file" ArgtypeString,
    argDesc = "CSV file to process." } ]

argd :: [Arg ArgIndex]
argd = [ 
  Arg {
    argIndex = ArgCols,
    argAbbr = Just 'c',
    argName = Just "cols",
    argData = argDataOptional "column-spec" ArgtypeString,
    argDesc = "Expression describing columns to select." },
  Arg {
    argIndex = ArgRows,
    argAbbr = Just 'r',
    argName = Just "rows",
    argData = argDataOptional "row-spec" ArgtypeString,
    argDesc = "Expression describing rows to select." },
  Arg {
    argIndex = ArgSource,
    argAbbr = Nothing,
    argName = Nothing,
    argData = argDataOptional "csv-file" ArgtypeString,
    argDesc = "CSV file to process." } ]
argd = [ 
  Arg {
    argIndex = ArgCols,
    argAbbr = Just 'c',
    argName = Just "cols",
    argData = argDataOptional "column-spec" ArgtypeString,
    argDesc = "Expression describing columns to select." },
  Arg {
    argIndex = ArgRows,
    argAbbr = Just 'r',
    argName = Just "rows",
    argData = argDataOptional "row-spec" ArgtypeString,
    argDesc = "Expression describing rows to select." },
  Arg {
    argIndex = ArgSource,
    argAbbr = Nothing,
    argName = Nothing,
    argData = argDataOptional "csv-file" ArgtypeString,
    argDesc = "CSV file to process." } ]