# hashtest.b## Written in 2018 by David Boddie <david@boddie.org.uk>## To the extent possible under law, the author(s) have dedicated all copyright# and related and neighboring rights to this software to the public domain# worldwide. This software is distributed without any warranty.## You should have received a copy of the CC0 Public Domain Dedication along with# this software. If not, see <http://creativecommons.org/publicdomain/zero/1.0/>. # Shows how the Hash module is used to store and retrieve associative data. implement HashTest; include "sys.m";    sys: Sys;include "draw.m";    draw: Draw;include "hash.m";    hash: Hash;    HashTable, HashVal: import hash; HashTest: module{    init: fn(ctx: ref Draw->Context, args: list of string);}; init(ctx: ref Draw->Context, args: list of string){    sys = load Sys Sys->PATH;    hash = load Hash Hash->PATH;     h := hash->new(11);    h.insert("Name", HashVal(0, 0.0, "Ada"));    h.insert("Number", HashVal(123, 0.0, ""));     sys->print("%s %d\n", h.find("Name").s, h.find("Number").i);}