>>> execState (do _1 .|.= 15; _2 .|.= 3) (7,7) (15,7)
(.|.=) :: (MonadState s m, Bits a) => Setter' s a -> a -> m () (.|.=) :: (MonadState s m, Bits a) => Iso' s a -> a -> m () (.|.=) :: (MonadState s m, Bits a) => Lens' s a -> a -> m () (.|.=) :: (MonadState s m, Bits a) => Traversal' s a -> a -> m ()
>>> _2 .|.~ 6 $ ("hello",3) ("hello",7)
(.|.~) :: Bits a => ReifiedSetter s t a a -> a -> s -> t (.|.~) :: Bits a => ReifiedIso s t a a -> a -> s -> t (.|.~) :: Bits a => ReifiedLens s t a a -> a -> s -> t (.|.~) :: (Monoid a, Bits a) => ReifiedTraversal s t a a -> a -> s -> t
>>> runState (_1 <.|.= 7) (28,0) (31,(31,0))
(<.|.=) :: (MonadState s m, Bits a) => Lens' s a -> a -> m a (<.|.=) :: (MonadState s m, Bits a, Monoid a) => Traversal' s a -> a -> m a
>>> _2 <.|.~ 6 $ ("hello",3) (7,("hello",7))
(<.|.~) :: Bits a => ReifiedIso s t a a -> a -> s -> (a, t) (<.|.~) :: Bits a => ReifiedLens s t a a -> a -> s -> (a, t) (<.|.~) :: (Bits a, Monoid a) => ReifiedTraversal s t a a -> a -> s -> (a, t)
>>> runState (_1 <<.|.= 7) (28,0) (28,(31,0))
(<<.|.=) :: (MonadState s m, Bits a) => Lens' s a -> a -> m a (<<.|.=) :: (MonadState s m, Bits a, Monoid a) => Traversal' s a -> a -> m a
>>> _2 <<.|.~ 6 $ ("hello", 3) (3,("hello",7))
(<<.|.~) :: Bits a => ReifiedIso s t a a -> a -> s -> (a, t) (<<.|.~) :: Bits a => ReifiedLens s t a a -> a -> s -> (a, t) (<<.|.~) :: (Bits a, Monoid a) => ReifiedTraversal s t a a -> a -> s -> (a, t)