treaty: whitespace
=+ ;;([%add =desk] q.vase)
=/ =docket:docket ~(get-docket so:cc desk)
=/ =treaty (treaty-from-docket:cc desk docket)
- =. sovereign (~(del by sovereign) desk treaty)
+ =. sovereign (~(put by sovereign) desk treaty)
`this
==
::
