mirror of
https://github.com/urbit/shrub.git
synced 2024-12-16 06:51:14 +03:00
25 lines
515 B
Plaintext
25 lines
515 B
Plaintext
/+ sh-utils
|
|
!:
|
|
::::
|
|
::
|
|
|_ [hid=hide ~]
|
|
++ peer ,_`.
|
|
++ poke-ticket-args
|
|
%+ args-into-gate .
|
|
|= [her=@p num=?(~ [p=@ud ~])]
|
|
=+ n=?~(num 1 p.num)
|
|
=+ ^= sep ^- @
|
|
=+ mir=(clan her)
|
|
?+ mir ~|(%ticket-clan !!)
|
|
%king (bex 8)
|
|
%duke (bex 16)
|
|
%earl (bex 32)
|
|
==
|
|
:- %tang
|
|
|- ^- tang
|
|
?: ?=(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))
|
|
--
|