Cmap create map1 private
set v1 [Cmap query_tk]
Cmap store_base map1 v1
Cmap connect . map1
