sub a{
eval join'*',1..pop
}

sub f {
a($_[0])/(a($_[1])*a($_[0]-$_[1]))
}