{-# LANGUAGE MultiParamTypeClasses #-}
module Data (
    RW(..)
  ) where

class RW a b where
  update :: (a -> a) -> b -> b
  set :: a -> b -> b
  set = update . const