（带有记忆宏定义的方案安蒂·卡图恩的Intseg-library）：
（定义（tree_for_A218778号n） （cond（（零？n）（list））（（=1n）（列表））（else（let（（new-tree（copy-tree）（tree_for_A218778号（-1+n）））（add-bud-for-the-n-th-unbanching-tree-with-car-cdr-code！new-tree(A218614型n） ））
（定义（add-bud-for-the-n-th-unbanching-tree-with-car-cdr-code！tree n）（let循环（（n n）（t树）））
（define（复制树bt）（cond（（not（pair？bt））bt）（else（cons（复制树（car bt））（复制树（cdr 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）。
