include xpllib; \For Print

int Data;

func Pick(At, Remain, Accu, Treat);
int  At, Remain, Accu, Treat;
[if Remain = 0 then return if Accu > Treat then 1 else 0;
return Pick(At-1, Remain-1, Accu + Data(At-1), Treat) +
    (if At > Remain then Pick(At-1, Remain, Accu, Treat) else 0);
];

int Treat, GT, LE, I;
real Total;
[Treat:= 0;  Total:= 1.;
Data:= [85, 88, 75, 66, 25, 29, 83, 39, 97,
        68, 41, 10, 49, 16, 65, 32, 92, 28, 98];
for I:= 0 to 8 do Treat:= Treat + Data(I);
for I:= 19 downto 11 do Total:= Total * float(I);
for I:= 9 downto 1 do Total:= Total / float(I);
GT:= Pick(19, 9, 0, Treat);
LE:= (fix(Total) - GT);
Print("<= : %f%  %d\n", 100. * float(LE) / Total,  LE);
Print(" > : %f%  %d\n", 100. * float(GT) / Total,  GT);
]