AN
Size: a a a
AN
(
AM
AN
(
AN
AM
AN
(
AM
I
AN
AD
(
class MutableSmth a where
getName :: a -> IO String
setName :: a -> String -> IO ()
*private* data MutableSmthImpl = MutableSmthImpl { name :: IORef String }
instance MutableSmth MutableSmthImpl where
...
I
(
(
AM
AM
I