(with obj
  (? >> 'foo (do-something (? << 'foo))

(obj < 'methods)

(obj > 'methods new-method-list)

from -

(define << 'getprop)
(define >> 'setprop)

(obj << 'propname)

(obj >> 'propname 'newvalue)


(< obj 'foo)
(> obj 'foo newvalue)