packWith (x:xs) acc = if x == head acc then packWith xs (x:acc)
                      else acc : packWith xs [x]
packWith (x:xs) acc = if x == head acc then packWith xs (x:acc)
                      else acc : packWith xs [x]
packWith (x:xs) acc = if x == head acc then packWith xs (x:acc)
                      else acc : packWith xs [x]