#include <hp48/stack.h>
#include <hp48/core.h>
#include <math.h>

int 
main (int argc, char **argv)
{
  hp_object *o;
  double r;

  r = pop_real ();

  r = exp (lgamma (r));
  if (signgam < 0)
    r = -r;

  o = sys_malloc (5 + 2 * sizeof (double));

  if (!o)
    exit (1);

  o->prolog = 0x2933;
  o->_hide.real = r;

  sys_exit (o);
}