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