::
::::  /hoon/pope/gen
  ::
/?    310
::  Input twitter keys
/-    sole
!:
=+  cryp=bruw                         ::  XX  change to ec2 ++brew eventually
=+  [sole]
:-  %ask
|=  $:  {now/@da eny/@uvI bec/beak}
        {{who/ship $~} $~}
    ==
^-  (sole-result (cask tang))
%+  sole-yo  leaf+"generating carrier {(scow %p who)} (#{(scow %ud who)})"
%+  sole-lo  [%| %pope-pass "passphrase: "]
%+  sole-go  (boss 256 (star prn))
|=  fra/@t
%+  sole-lo  [%| %pope-none "[press enter to compute]"]  :: XX oy
%+  sole-go  (easy ~)
|=  $~
=+  bur=(shax (add who (shax fra)))
~&  %computing-fingerprint
=+  arc=(cryp 2.048 bur)
%+  sole-so  %tang
:~  leaf+"generator: {(scow %uw bur)}"
    leaf+"fingerprint: {(scow %uw fig:ex:arc)}"
==