suiteCombos =
  foldl (\accum suite1case ->
          (foldl (\accum suite2case -> [suite1case, suite2case] : accum)
                 accum (makeSuiteData "Suite2")))
        [] (makeSuiteData "Suite1")
suiteCombos =
  foldl (\accum suite1case ->
          (foldl (\accum suite2case -> [suite1case, suite2case] : accum)
                 accum (makeSuiteData "Suite2")))
        [] (makeSuiteData "Suite1")
suiteCombos =
  foldl (\accum suite1case ->
          (foldl (\accum suite2case -> [suite1case, suite2case] : accum)
                 accum (makeSuiteData "Suite2")))
        [] (makeSuiteData "Suite1")