main=interact$unlines.map(show.h.map read.words).lines
h[a,b]=f b*a#b
n#0=0
n#k|n==k=1
n#k=(n-1)#(k-1)+k*(n-1)#k
f 0=1
f n=n*f(n-1)