(bind-func file_word_count
(lambda (filename)
(letz
((buflen 1000000000)
(buf:i8* (halloc buflen))
(wc_dict null))
(if (> (fill_buffer_with_file buf filename buflen) 0)
(begin (set! wc_dict (word_count (String buf) (String " ,.\t\n")))
void))
(free buf)
(println "length:" (length wc_dict))
(println (take wc_dict 100))
(if (null? wc_dict) wc_dict (cdr wc_dict)))))