function histp(x)
% Makes a probability histogram with m=log2(samplesize) bins.
m=floor(log2(length(x)));
[n,c]=hist(x,m);
w=diff(c);
area=w(1)*sum(n);
bar(c,n/area);