(bind-func test_g_cstring1
(lambda ()
(let ((test_cstring "Niblot.")
(i 0)
(sum 0))
(dotimes (i 7)
(let ((c1 (pref g_cstring i))
(c2 (pref test_cstring i)))
(printf "checking %c against %c\n" c1 c2)
(if (= c1 c2)
(set! sum (+ sum 1)))))
sum)))