(带有记忆宏定义的方案安蒂·卡图恩的Intseg-library):
(定义(add-bud-for-the-n-th-unbanching-tree-with-car-cdr-code!tree n)(let循环((n n)(t树)))
(定义(copy-tree bt)(cond((not(pair?bt))bt),(其他(cons(copy-tree(car-bt))))
(定义(括号->a014486 p)(let loop(s 0)(p p))(如果(null?p)s(let*((x(括号->a 014486(car p)))(w(箱宽x)))
(定义(箱宽n)(让回路(n n)(i 0))(如果(零?n)i(回路(地板->精确(/n 2))(1+i)));;(料箱宽度n)=A029837号(n+1)。