parseArgs args = do
  let (flags, rest, errs) = GO.getOpt (GO.ReturnInOrder (\s -> Remainder s)) arglist args
  desc <- theDesc flags
  return $ fromJust $ ((combine desc flags) <|>
                       (tryLens (preview listBuffersDummy) flags >> (ExecBuffers <$> tryLens (preview pid) flags)) <|>
                        (pure ExecShowHelp))

-- |File Format for output: