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