lappend l a b c d e f
    set x [lrange $l 0 1]
    set y [lrange $l 2 end]
    list $l $x $y
}

proc lsetest {l {ix { 2 }}} {
    for {set i 0} {$i < [llength $l]} {incr i} {
	lset l $i >[lindex $l $i]<
    }

    lset l $ix abc

    lset l 1 1 def

    return $l
}
proc lappendtest {l} {
    lappend l a
    lappend l b c
    return $l
}
................................................................................
    numberitems numberitems2 numberitems3 doubleitems
    containment
    lsorttest
    lsortcmd
    # Dictionary operations (also see some [try] tests)
    dictest
    dictest2
    # dictest3			TEMP generates incorrect code
    dictest4 dictest5
    # dictest6 dictest7		TEMP generates incorrect code
    # dictest8			TEMP generates incorrect code
    dictest9
    dictfor
    # Nonexistent variables
    nextest1
    nextest2
    nextest3
    nextest4

    lappend l a b c d e f
    set x [lrange $l 0 1]
    set y [lrange $l 2 end]
    list $l $x $y
}

proc lsetest {l {ix { 2 }}} {
    # for {set i 0} {$i < [llength $l]} {incr i} {
    # 	lset l $i >[lindex $l $i]<

    # }
    lset l $ix abc
    puts "After first lset: $l"
    lset l 1 1 def
    puts "After second lset: $l"
    return $l
}
proc lappendtest {l} {
    lappend l a
    lappend l b c
    return $l
}
................................................................................
    numberitems numberitems2 numberitems3 doubleitems
    containment
    lsorttest
    lsortcmd
    # Dictionary operations (also see some [try] tests)
    dictest
    dictest2
    dictest3
    dictest4 dictest5
    dictest6 dictest7
    dictest8
    dictest9
    dictfor
    # Nonexistent variables
    nextest1
    nextest2
    nextest3
    nextest4

	}
	set bb [lindex $bbcontent $b]
	lset bbcontent $b {}
	lset bbcontent $b [lrange $bb[set bb ""] 0 $newpc]
    }

    my debug-constfold {
#	puts "After constfold:"
#	my dump-bb
    }
    return $changed
}

	}
	set bb [lindex $bbcontent $b]
	lset bbcontent $b {}
	lset bbcontent $b [lrange $bb[set bb ""] 0 $newpc]
    }

    my debug-constfold {
	puts "After constfold:"
	my dump-bb
    }
    return $changed
}

		set mid [list temp opnd0]
		set val [list temp [incr depth -1]]
		set idx 0
		set toUpdate {}
		foreach v [dict get $aux variables] {
		    set r [my index-to-var $v]
		    my generate-move-from-callframe $r
		    my generate-existence-check $pc $r
		    my generate-scalar-check $pc $r {TCL WRITE VARNAME} \
			"can't set \"%s\": variable is array"
		    my error-quads $pc listIndex $mid $val [list literal $idx]
		    my error-quads $pc dictGetOrNexist $r $var $mid
		    lappend toUpdate [list literal [lindex $r 1]] $r
		    incr idx
		}
................................................................................
		    my quads arrayExists $isary $r
		    set n [llength $quads]
		    my quads jumpFalse [list pc [expr {$n + 3}]] $isary
		    my quads copy $mid Nothing
		    my quads jump [list pc [expr {$n + 4}]]
		    my quads extractScalar $mid $r
		    # Write the value to the right key of the dict
		    my error-quads $pc dictSetOrUnset $updating $updating $key $mid

		}
		my quads copy $var $updating
		my update-in-callframe [list literal [lindex $var 1]] $var
	    }
	    unsetScalar {
		# TODO - This doesn't complain on unsetting a nonexistent
		#        variable, it ignores '-nocomplain'
		set var [my index-to-var [lindex $insn 2]]
		my quads unset $var



		my update-in-callframe [list literal [lindex $var 1]] Nothing

	    }
	    unsetArray {
		# TODO - This doesn't complain on unsetting a nonexistent
		#        element, it ignores '-nocomplain'
		set idx [list temp [incr depth -1]]
		set ary [my index-to-var [lindex $insn 2]]
		my generate-move-from-callframe $ary

		set mid [list temp opnd0]
		set val [list temp [incr depth -1]]
		set idx 0
		set toUpdate {}
		foreach v [dict get $aux variables] {
		    set r [my index-to-var $v]
		    my generate-move-from-callframe $r

		    my generate-scalar-check $pc $r {TCL WRITE VARNAME} \
			"can't set \"%s\": variable is array"
		    my error-quads $pc listIndex $mid $val [list literal $idx]
		    my error-quads $pc dictGetOrNexist $r $var $mid
		    lappend toUpdate [list literal [lindex $r 1]] $r
		    incr idx
		}
................................................................................
		    my quads arrayExists $isary $r
		    set n [llength $quads]
		    my quads jumpFalse [list pc [expr {$n + 3}]] $isary
		    my quads copy $mid Nothing
		    my quads jump [list pc [expr {$n + 4}]]
		    my quads extractScalar $mid $r
		    # Write the value to the right key of the dict
		    my error-quads $pc dictSetOrUnset \
			$updating $updating $key $mid
		}
		my quads copy $var $updating
		my update-in-callframe [list literal [lindex $var 1]] $var
	    }
	    unsetScalar {
		# TODO - This doesn't complain on unsetting a nonexistent
		#        variable, it ignores '-nocomplain'
		set var [my index-to-var [lindex $insn 2]]
		my quads unset $var
		if {[lindex $var 0] eq "var"} {
		    my quads moveToCallFrame \
			{temp @callframe} {temp @callframe} \
			[list literal [lindex $var 1]] Nothing
		}
	    }
	    unsetArray {
		# TODO - This doesn't complain on unsetting a nonexistent
		#        element, it ignores '-nocomplain'
		set idx [list temp [incr depth -1]]
		set ary [my index-to-var [lindex $insn 2]]
		my generate-move-from-callframe $ary