ligo/scripts/gen_genesis.ml

9 lines
233 B
OCaml
Raw Normal View History

2017-09-22 00:24:10 +04:00
let prefix = "BLockGenesisGenesisGenesisGenesisGenesis"
2017-10-13 13:24:22 +04:00
let suffix = "DDDDD"
2017-09-22 00:24:10 +04:00
let p = Base58.raw_decode (prefix ^ suffix ^ "crcCRC")
let p = String.sub p 0 (String.length p - 4)
let p = Base58.safe_encode p
let () = print_endline p