No longer rev ahead of time
++ address-from-pub
=, keccak:crypto
|= pub=@
- (end 3 20 (keccak-256 64 pub))
+ %^ end 3 20
+ %+ keccak-256 64
+ (rev 3 64 pub)
::
++ address-from-prv
(cork pub-from-prv address-from-pub)
++ pub-from-prv
=, secp256k1:secp:crypto
|= prv=@
- %^ rev 3 64
%- serialize-point
(priv-to-pub prv)
::
