expandCols :: (Combo, Int) -> [Combo]
expandCols (((x, y), c), num) = [((x, row), c) | row <- [(y-num+1)..y]]
expandCols :: (Combo, Int) -> [Combo]
expandCols (((x, y), c), num) = [((x, row), c) | row <- [(y-num+1)..y]]
expandCols (((x, y), c), num) = [((x, row), c) | row <- [(y-num+1)..y]]