(bind-func wave_validate (lambda (fileptr) (and (= (strncmp fileptr "RIFF" 4) 0) (= (strncmp (pref-ptr fileptr 8) "WAVE" 4) 0))))