playing with Haskell lenses (examples for blog post)