$P0 = new TclList
  $S0 = listval
  $P0 = $S0
  listval = $P0


parrot