in reply to Convert to Single line

Here is a poorly written one liner...

$ perl -e "for (2 .. $ARGV[0]-1) {$ARGV[0]*=$_;} print $ARGV[0];" 7 $ 5040 $