(bind-func audiofile_16bitPCM_to_sample_le (let ((range (i64tod (<< 1 16)))) (lambda (src:i8* dest:SAMPLE* nsamp) (doloop (i nsamp) (pset! dest i (dtof (/ (i16tod (pref (cast src i16*) i)) range)))))))