((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 }))