r <- combn(0:4, 3)
for(i in 1:choose(5,3)) print(r[,i])