Take 2 of Haskell style lenses and miscelleny in Racket