import Control.Lens hiding (element)

main = do
  print $ over _1 (+1) (0,0)
  print $ over (_1 . _2) (+1) ((0,0),0)
  print $ over (_1 . _2 . _1) (+1) ((0,(0,0)),0)