From 2f36e5c23c3bb8a5e5b703244f1597ae6635b1a0 Mon Sep 17 00:00:00 2001
From: Daniil Gentili <daniil@daniil.it>
Date: Sun, 6 Oct 2019 20:41:54 +0200
Subject: [PATCH] Finally

---
 wallet/wallet-create.fif | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/wallet/wallet-create.fif b/wallet/wallet-create.fif
index 1d9ec97..6ee15d0 100644
--- a/wallet/wallet-create.fif
+++ b/wallet/wallet-create.fif
@@ -32,7 +32,7 @@ k n <= not abort"<k> must smaller than or equal to <n>"
 
 $# 4 n + < abort"Not enough keys were provided in args!"
 
-$5 +".pk" load-generate-keypair { 256 B>u@ swap } 2 times const privkey
+$5 +".pk" load-generate-keypair const privkey 256 B>u@
 
 6 { dup $() +".pubkey" load-pubkey swap 1+ } n 1- times drop
 n tuple constant keys
@@ -148,6 +148,7 @@ dup hash wc swap 2dup 2constant wallet_addr
 2dup file-base +".addr" save-address-verbose
 ."Non-bounceable address (for init): " 2dup 7 .Addr cr
 ."Bounceable address (for later access): " 6 .Addr cr
+.s
 <b 0 32 u, -1 32 i, b>
 dup ."signing message: " <s csr. cr
 dup hash privkey ed25519_sign_uint rot