sub permutation
{
     return $_[1] ? $_[0] * permutation($_[0]-1,$_[1]-1) : 1;
}