usualArgsBad :: FilePath -> [String] -> [String]
usualArgsBad p args =
  [ "-t", p </> "trees"
  , "-l", p </> "lexicon"
  , "-s", p </> "suite-bad"
  ] ++ args
usualArgsBad :: FilePath -> [String] -> [String]
usualArgsBad p args =
  [ "-t", p </> "trees"
  , "-l", p </> "lexicon"
  , "-s", p </> "suite-bad"
  ] ++ args
usualArgsBad p args =
  [ "-t", p </> "trees"
  , "-l", p </> "lexicon"
  , "-s", p </> "suite-bad"
  ] ++ args