NB. A simple object having a data value
NB. and methods to access and set the data value.

data =: 0

simple =: monad define
'method value' =. 2 {. y.
if. method -: 'type'
    do. 'simple object'
  elseif. method -: 'get'
    do. data
  elseif. method -: 'set'
    do. for_effect_only data =: value
  elseif. 1
    do. root_object method ; value
end.
)