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);