/-  sur=nostril
|%
++  gen-keys  |=  eny=@  ^-  keys:sur
  =,  secp256k1:secp:crypto
  =/  privkey
  |-  
    =/  k  (~(rad og eny) (bex 256))
    ?.  (lth k n.t)  $  k

  =/  pubkey  (priv-to-pub privkey)
  ~&  priv=privkey
  ~&  pub=pubkey
  =/  pub  (compress-point pubkey)
  :: =/  pub  (serialize-point pubkey)
  ~&  pub-hex=((x-co:co 0) pub)
  [pub=pub priv=privkey]
::
++  cards
|_  =bowl:gall
  ++  shim-binding  ^-  card:agent:gall
    [%pass /binding %arvo %e %connect [~ /nostr-shim] dap.bowl]
  --
--