CREATE hash.txt  \ After K&R, 2nd edition, p. 144
\ hash hash.txt hashsize

\ See dpans.txt

101 VALUE hashsize
: hash  ( a u -- hashvalue )
   0 ROT ROT 0 ?DO COUNT ROT 31 * + SWAP LOOP DROP 
   hashsize UM* NIP ;