let [val len [emit 2]] {
	loop [val i 1] [val list ""] {
		if [$i | eq $len] {
			let [val item [concat "TestProject/" [emit $list | str]]] {
				get-view "Test Explorer" | get-tree | select $item
			}
		} -else {
			recur [$i | plus 1] [concat $list [emit hh | $i]]
		}
	}
}