(set the-map (make-map))
(map-put the-map "A" "B")
(print "MAP=") 
(print (map-get the-map "A"))
(print "\n") 
(f the-map)
(print "MAP=") 
(print (map-get the-map "C"))
(print "\n") 

(defun f (my-map) 
   (map-put my-map "C" "D")
)
