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