(定义(tree_for_A218776号n) (cond((零?n)(list))((=1 n)(列表(list-第n个n个-第个-无担保-免费-使用-car-cdr代码!新树(A218615型n) ))
(定义(为-第n个n个-第个-无担保-免费-使用-car-cdr代码!树n)(let loop((n n)(t tree))(cond((zero?n)(list))((=n 1)(list(list)))((=n 2)(set cdr!t(list(list))))((=n 3)(set car!t(list(list))))(偶数?n)(loop(/n 2)(cdr t)))(else(loop(/(-n 1)2)(car t))))))树)