competitionSD = strategy "competition" (OneTuple $ some timArg `T.optional` Nothing) competition
  where timArg = nat `withName` "timeout" `withHelp` ["timeout"]
competitionSD = strategy "competition" (OneTuple $ some timArg `T.optional` Nothing) competition
  where timArg = nat `withName` "timeout" `withHelp` ["timeout"]
competitionSD = strategy "competition" (OneTuple $ some timArg `T.optional` Nothing) competition
  where timArg = nat `withName` "timeout" `withHelp` ["timeout"]