Seqbox/Wolfram
pi@bluepi:~$ echo 'Do[Print[Table[n!,{n,1,10}]i],{i,1,10}]' | wolfram -noinit -noprompt
1
2
6
24
120
720
5040
40320
362880
3628800
pi@bluepi:~$ echo 'Do[Print[Table[n!,{n,1,10}]i],{i,1,10}]' | wolfram -noinit -noprompt
1
2
6
24
120
720
5040
40320
362880
3628800