let
remove_graphics_obj_with_tag_value (tag : string) : unit =
(
Canvas
.delete canvas [
`
Tag
(tag)])