2015-01-12 04:13:34 +03:00
|
|
|
/+ sh-utils
|
2014-10-30 03:37:17 +03:00
|
|
|
!:
|
2015-01-12 04:13:34 +03:00
|
|
|
::::
|
|
|
|
|
::
|
2014-10-30 03:37:17 +03:00
|
|
|
|_ [hid=hide ~]
|
2015-01-10 05:21:25 +03:00
|
|
|
++ peer ,_`.
|
2014-10-30 03:37:17 +03:00
|
|
|
++ poke-ticket-args
|
2015-01-10 05:21:25 +03:00
|
|
|
%+ args-into-gate .
|
|
|
|
|
|= [her=@p num=?(~ [p=@ud ~])]
|
2014-10-30 03:37:17 +03:00
|
|
|
=+ n=?~(num 1 p.num)
|
|
|
|
|
=+ ^= sep ^- @
|
|
|
|
|
=+ mir=(clan her)
|
|
|
|
|
?+ mir ~|(%ticket-clan !!)
|
|
|
|
|
%king (bex 8)
|
|
|
|
|
%duke (bex 16)
|
|
|
|
|
%earl (bex 32)
|
|
|
|
|
==
|
2015-01-10 05:21:25 +03:00
|
|
|
:- %tang
|
|
|
|
|
|- ^- (list tank)
|
|
|
|
|
?: ?=(0 n) ~
|
|
|
|
|
=+ tic=/(scot %p our.hid)/tick/(scot %da lat.hid)/(scot %p her)
|
|
|
|
|
:- leaf/"{<her>}: {<(,@p .^(%a tic))>}"
|
|
|
|
|
$(her (add sep her), n (dec n))
|
2014-10-30 03:37:17 +03:00
|
|
|
--
|
