set comps [hm_getstring "comps" "please input a comps name"] 

*collectorcreateonly comps $comps "" 50

*createmarkpanel elem 1 "select elements to move"

*movemark elem 1 $comps