VMD label under construction....

proc label_atoms { top all } {
  set sel [atomselect top all]
  set atomlist [$sel list]
  foreach {atom} $atomlist {
    set atomlabel [format "%d/%d" top $atom]
    label add Atoms $atomlabel
  }
}


set sel1 [atomselect top all]
set atomlist [$sel1 list]
foreach {atom} $atomlist {
    set atomlabel [format 0/2 top $atom]
    label add Atoms $atomlabel
        show type
  }




set sel [atomselect top all]
set a [$sel get type]