-- |
--
-- >>> get (compose fstL sndL) ("abc", (7, "def"))
-- 7
--
-- >>> set (compose fstL sndL) ("abc", (7, "def")) 8
-- ("abc",(8,"def"))
compose ::
  Lens s t a b
  -> Lens q r s t
  -> Lens q r a b
compose =
  error "todo: compose"
compose ::
  Lens s t a b
  -> Lens q r s t
  -> Lens q r a b
compose =
  error "todo: compose"
compose =
  error "todo: compose"