urbit/main/bin/pope.hoon

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