zuse: schnorr jet hints
?< =([0 0] pub)
pub
++ schnorr
+ ~% %schnorr + ~
=> |% ++ tagged-hash
|= [tag=@ [l=@ x=@]]
=+ hat=(sha-256:sha (swp 3 tag))
|%
::
++ sign :: schnorr signature
- :: ~/ %sosi
+ ~/ %sosi
|= [sk=@I m=@I a=@I]
^- @J
=/ c curve
sig
::
++ verify :: schnorr verify
- :: ~/ %sove
+ ~/ %sove
|= [pk=@I m=@I sig=@J]
^- ?
=/ c curve
