'h1 element dup bind h1
'p element dup bind p
2 list to-body

declare bible 
: show-verse
  p.text-content!
  h1.text-content!
;

: random-verse
  bible random-key bind key
  key
  bible key get-property
  show-verse
;

wait

'kjv.json fetch -json set bible
random-verse