fp=fopen('gettysburg.txt');
G=lower(char(fread(fp))');
fclose(fp);
G(G==' ')=[];G(G==',')=[];G(G=='.')=[];
unique(G)
bar(histc(G,['-','a','b','c','d','e','f','g','h','i','k','l','m',...
'n','o','p','q','r','s','t','u','v','w','y']));
set(gca,'xtick',1:24,...
'xticklabel',{'-','a','b','c','d','e','f','g','h','i','k','l','m',...
'n','o','p','q','r','s','t','u','v','w','y'})