/* read the numbers; notice: ech line of the input must be followed by an EOF character */
x = read();
/* multiplication table */
for (i=1; i<=x; ++i)
{
for (j=1; j<=x; ++j) print i*j, "\t"
print "\n"
}
/* compute the pi number accurately to 10 decimal places */
scale=x
print "\npi = ", 4*a(1), "\n"
/* factorial */
define f(n)
{
if (n <= 1) return 1;
return n * f(n-1);
}
print "\n";
print "1! = ", f(1), "\n";
print "5! = ", f(5), "\n";
print x, "! = ", f(x), "\n";
LyogcmVhZCB0aGUgbnVtYmVyczsgbm90aWNlOiBlY2ggbGluZSBvZiB0aGUgaW5wdXQgbXVzdCBiZSBmb2xsb3dlZCBieSBhbiBFT0YgY2hhcmFjdGVyICovCnggPSByZWFkKCk7CgovKiBtdWx0aXBsaWNhdGlvbiB0YWJsZSAqLwpmb3IgKGk9MTsgaTw9eDsgKytpKQp7Cglmb3IgKGo9MTsgajw9eDsgKytqKSBwcmludCBpKmosICJcdCIKCXByaW50ICJcbiIKfQoKLyogY29tcHV0ZSB0aGUgcGkgbnVtYmVyIGFjY3VyYXRlbHkgdG8gMTAgZGVjaW1hbCBwbGFjZXMgKi8Kc2NhbGU9eApwcmludCAiXG5waSA9ICIsIDQqYSgxKSwgIlxuIgoKLyogZmFjdG9yaWFsICovCmRlZmluZSBmKG4pCnsKCWlmIChuIDw9IDEpIHJldHVybiAxOwoJcmV0dXJuIG4gKiBmKG4tMSk7Cn0KCnByaW50ICJcbiI7CnByaW50ICIxISA9ICIsIGYoMSksICJcbiI7CnByaW50ICI1ISA9ICIsIGYoNSksICJcbiI7CnByaW50IHgsICIhID0gIiwgZih4KSwgIlxuIjsK