1hash ptr len = f len
2  where f h = return h
3        f p = (p `advancePtr` 1)
4