- 01
 - 02
 - 03
 - 04
 - 05
 - 06
 - 07
 - 08
 - 09
 - 10
 - 11
 - 12
 - 13
 - 14
 - 15
 - 16
 
for li:=LL-2 downto 1 do
        begin
          ag:=ml_(a[li], m_(gen(len(a[li]), 1, 1), a[li]) );
            cp(
              b[li],
              ml_(
                ml(
                  t(W[li]),
                  from2(b[li+1], li <> LL-2)
                )
                ,
                ag
              )
            );
        end;
                                
 Follow us!
даже в самых крутых стилях программирования, без проверки на первую/последнюю итерацию не обходится...