19 lines
470 B
Plaintext
19 lines
470 B
Plaintext
( new$hash:?myhash
|
|
& (myhash..insert)$(title."Some title")
|
|
& (myhash..insert)$(formula.a+b+x^7)
|
|
& (myhash..insert)$(fruit.apples oranges kiwis)
|
|
& (myhash..insert)$(meat.)
|
|
& (myhash..insert)$(fruit.melons bananas)
|
|
& (myhash..remove)$formula
|
|
& (myhash..insert)$(formula.x^2+y^2)
|
|
& (myhash..forall)
|
|
$ (
|
|
= key value
|
|
. whl
|
|
' ( !arg:(?key.?value) ?arg
|
|
& put$("key:" !key "\nvalue:" !value \n)
|
|
)
|
|
& put$\n
|
|
)
|
|
);
|