starting haskell lens contribution