'%C%' <- function(n, k) choose(n, k)
5 %C% 2 #Outputs 10.