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 take y.
if. method match 'type'
    do. 'simple object'
  elseif. method match 'get'
    do. data
  elseif. method match 'set'
    do. for_effect_only data =: value
  elseif. 1
    do. root_object method ; value
end.
)