let
get k w =
Writer
.write_line w (or_else (
Hashtbl
.find store k) (k ^
" not found"
))