~~~
[ &d:add-header #2 + call
  d:last d:name @d:Hash-Function call d:last d:hash store
] &d:add-heaer set-hook

d:rehash
~~~