(load "monocypher-pil.l")
(de L2hex (Lst)
   (lowc
      (pack
         (mapcar '((B) (pad 2 (hex B))) Lst) ) ) )
(let (SK (need 64 0)  Pair)
   (do 1000000
      (setq Pair (crypto_ed25519_key_pair (head 32 SK)))
      (setq SK (crypto_ed25519_sign (car Pair) SK)) )
   (println (L2hex SK)) )
(msg 'ok)
(bye)