(use-modules (gcrypt pk-crypto))

(define signature
  (string->canonical-sexp
   "(sig-val 
      (ecdsa 
        (r #1C02B319EEDBF0FEE6117618FB5AF6E0A27BD25FCE1C62966BED52591F2B8F0E#)
        (s #D1EFE6E64D71C4274F78D82904C80E8CE976B4F50033EF1835E81EA5417F48E7#)))"))

(define data
  (string->canonical-sexp
   "(data
     (flags rfc6979)
     (hash sha256 #8FC21B085437D13E754664F6482C69AC06DDF33840B6A35E7B29783C36B0759F#))"))

(define key
  (string->canonical-sexp
   "(public-key 
     (ecc 
      (curve \"NIST P-256\")
      (q #04115B3FA39FAE41B4E32F7721CA72F8C1781483647DABD514F08E66128BD47FCE9067B90E0488C9C2A9F30F5A266A07841D6C077413BA07E74569B99D4FD3CEC6#)))"))

(verify signature data key)