var fact = proc(n)
if (n > 0)
:result = n * fact(n-1)
else
:result = 1
;
var i = 0;
var res = 0;
while (i < 50000) {
res = res + fact(50);
i = i + 1;
};
print (res);