2013-09-29 00:21:18 +04:00
|
|
|
!:
|
|
|
|
|
:: /=main=/bin/pope/hoon
|
|
|
|
|
::
|
|
|
|
|
=> .(+ =>(+ ^/===/lib/pony))
|
|
|
|
|
|= [est=time *]
|
|
|
|
|
|= [who=@p ~]
|
|
|
|
|
^- bowl
|
2013-10-16 01:02:23 +04:00
|
|
|
%+ (polo %pass "passphrase: " ~ ~)
|
2013-09-29 00:21:18 +04:00
|
|
|
(boss 256 (more gon qit))
|
|
|
|
|
|= [now=@da fra=@]
|
2013-10-16 01:02:23 +04:00
|
|
|
%+ pomp "generating carrier {(scow %p who)} (#{(scow %ud who)})"
|
2013-12-09 01:23:03 +04:00
|
|
|
%- (posh (add ~s1 now))
|
2013-09-29 00:21:18 +04:00
|
|
|
|= now=@da
|
|
|
|
|
:_ ~
|
|
|
|
|
=+ bur=(shax (add who (shax fra)))
|
|
|
|
|
=+ arc=(brew 2.048 bur)
|
|
|
|
|
:~ [%la %leaf "generator: {(scow %uw bur)}"]
|
|
|
|
|
[%la %leaf "fingerprint: {(scow %uw fig:ex:arc)}"]
|
|
|
|
|
==
|
