17 lines
145 B
PostScript
17 lines
145 B
PostScript
/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
|