getPattern :: Set.Set String -> ([Int], Set.Set String)
getPattern x = (map (length . nub) $ transpose $ Set.toList x, x)
getPattern :: Set.Set String -> ([Int], Set.Set String)
getPattern x = (map (length . nub) $ transpose $ Set.toList x, x)
getPattern x = (map (length . nub) $ transpose $ Set.toList x, x)