::  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)}"
==