(bind-func svm_num_elements
"unsafe - munges the input buffer"
(lambda (buf)
(let ((count 0))
(set! p (strtok buf " \t")) ;; label
(while (not (or (null? p) (= (pref p 0) 10)))
(set! count (+ count 1))
(strtok null " \t"))
count)))