$I0 = find_type "TclList"
  $P0 = new $I0
  $S0 = listval
  $P0 = $S0
  listval = $P0


parrot