removes initial %clay merge
[mos ..^$]
::
$init
- :_ %_ ..^$
+ :- ~
+ %_ ..^$
fat.ruf
?< (~(has by fat.ruf) our.req)
(~(put by fat.ruf) our.req [-(hun hen)]:[*room .])
==
- ^- (list move)
- ?: ?=(%czar (clan:title our.req))
- ~
- =/ bos=ship
- ;; ship
- %- need %- need
- %- (sloy ski)
- [[151 %noun] %j (en-beam:format [our.req %sein da+now] /(scot %p our.req))]
- [hen %pass /init-merge %c %merg our.req %base bos %kids da+now %init]~
::
$into
=. hez.ruf `hen
