suitePairCombos = foldl (\accum a ->
                          foldl (\accum b -> (a, b) : accum)
                                accum suiteCombos)
                        [] suiteCombos
suitePairCombos = foldl (\accum a ->
                          foldl (\accum b -> (a, b) : accum)
                                accum suiteCombos)
                        [] suiteCombos
suitePairCombos = foldl (\accum a ->
                          foldl (\accum b -> (a, b) : accum)
                                accum suiteCombos)
                        [] suiteCombos