correct function for Pilings

[vdmcc]

the function got garbled in the paste:

pilings[par_List]:=
  Module[{},tel=Length[par];all= List/@Partitions[par[[1]] ];
 Do[all= Flatten[Function[parit,
   Flatten[{parit,{#}},1]& /@(
     Select[Partitions[par[[i]] ],(
      Length[#]<=Length[Last at parit]&&
    And@@Thread[ #<=Take[Last at parit,Length[#]]])& ])]/@all,1] 
,{i,2,tel}];
all]

w.meeussen.vdmcc at vandemoortele.be
tel  +32 (0) 51 33 21 11
fax +32 (0) 51 33 21 75