(let* 
     [re (regexp-compile "hello")
      loc (regexp-find-index re "012345hello!")]
  (assert (= (aget loc 0) 6))
  (assert (= (aget loc 1) 11))
  (assert (= "hello" (regexp-find re "ahellob")))
  (assert (regexp-match re "hello"))
  (assert (not (regexp-match re "hell"))))