21 lines
282 B
Text
21 lines
282 B
Text
((main
|
|
{ (('foo' 12)
|
|
('bar' 33)
|
|
('baz' 42))
|
|
mkhash !
|
|
|
|
entsha
|
|
dup
|
|
{1 ith nl <<} each
|
|
|
|
"-----\n" <<
|
|
|
|
{2 ith %d nl <<} each})
|
|
|
|
(mkhash
|
|
{ <- newha ->
|
|
{ <- dup ->
|
|
dup 1 ith
|
|
<- 0 ith ->
|
|
inskha }
|
|
each }))
|