sub f{$_[0]>0?$_[0]*f($_[0]-1):1}
@a=map$$_,grep!$$_++,@@=<>=~/./g;
$%=f~~@@;
$%/=f$_ for@a;
print$%-1,$/