RosettaCodeData/Task/Fork/PARI-GP/fork.pari

void
foo()
{
  if (pari_daemon())
    pari_printf("Original\n");
  else
    pari_printf("Fork\n");
}