(bind-func string_list_from_file
(lambda (filename)
(letz
((buflen 10000000)
(buf:i8* (halloc buflen))
(strlist null))
(if (> (fill_buffer_with_file buf filename buflen) 0)
(begin (set! strlist (string_list_from_string (String buf) (String " ,.\t\n")))
void)
(println "Problem."))
(free buf)
strlist)))