% load_raw.m
% David Rowe 7 Oct 2009
function s = load_raw(fn, len=Inf)
fs=fopen(fn,"rb");
s = fread(fs,len,"short");
fclose(fs);
endfunction