"TonUtil.fif" include

{ ."usage: " @' $0 type ." <privkey>" cr
  ."Create public key files from private keys; if <privkey> doesn't exist, it will be created." cr cr
  1 halt
} : usage
$# 1 < ' usage if

$1 +".pk" load-generate-keypair drop
dup $1 +".pubkey" B>file


."Wrote private key to " $1 +".pk" type cr 
."Wrote public key to " $1 +".pubkey" type cr cr
."Public key: " Bx. cr cr