RosettaCodeData/Task/Mutual-recursion/PostScript/mutual-recursion-1.ps

/female{
/n exch def
n 0 eq
{1}
{
n n 1 sub female male sub
}ifelse
}def

/male{
/n exch def
n 0 eq
{0}
{
n n 1 sub male female sub
}ifelse
}def