@@ -197,6 +197,20 @@
197197 `[%done +>.sign-arvo.u.in.tin]
198198 ==
199199::
200+++ take-near
201+ |= =wire
202+ =/ m (strand ,[spar:ames (unit (unit page))])
203+ ^- form:m
204+ |= tin=strand-input:strand
205+ ?+ in.tin `[%skip ~]
206+ ~ `[%wait ~]
207+ ::
208+ [~ %sign * %ames %near ^ *]
209+ ?. =(wire wire.u.in.tin)
210+ `[%skip ~]
211+ `[%done +>.sign-arvo.u.in.tin]
212+ ==
213+::
200214++ take-poke-ack
201215 |= =wire
202216 =/ m (strand ,~)
@@ -335,7 +349,13 @@
335349 |= [=wire =spar:ames]
336350 =/ m (strand ,~)
337351 ^- form:m
338− (send-raw-card %pass wire %arvo %a %keen spar)
352+ (send-raw-card %pass wire %arvo %a %keen ~ spar)
353+::
354+++ keen-shut
355+ |= [=wire =spar:ames]
356+ =/ m (strand ,~)
357+ ^- form:m
358+ (send-raw-card %pass wire %keen & spar)
339359::
340360++ sleep
341361 |= for=@dr