#!/usr/bin/perl
use strict;
my $probability = permutation(50, 5);
print $probability * 36;

sub permutation
{
    my $number = shift;
    my $count = shift || return 1;
    return $number * permutation($number-1,$count-1);
}