MAN-OR-BOY|

begin
   integer i, layout;

   integer procedure A (k, x1, x2, x3, x4, x5);
      value k;
      integer k, x1, x2, x3, x4, x5;
   begin

       integer procedure B;
       begin
          k := k - 1;
          A := B := A (k, B, x1, x2, x3, x4);
       end B;

      if k < 0 then A := x4 + x5 else B;

   end A;

   open(30);
   layout := format([+nnnd_]);

   for i := 0 step 1 until 11 do
      write(30, layout, A(i, 1, -1, -1 , 1 , 0));

end
|