c(n,k,r,d)={
if(d==k,
for(i=2,k+1,
print1(r[i]" "));
print
,
for(i=r[d+1]+1,n,
r[d+2]=i;
c(n,k,r,d+1)));
}
c(5,3,vector(5,i,i-1),0)