how to dereference a variable twice in tcl code example

Example: how to dereference a variable twice in tcl

set jo jim
  puts $$jo ;# returns "$jim"
  puts [subst $$jo] ;# returns "can't read "jim": no such variable"
  set fred jo
  puts [subst $$fred] ;# returns "jim"