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)