8 lines
119 B
PostScript
8 lines
119 B
PostScript
y {
|
|
{dup cons} exch concat dup cons i
|
|
}.
|
|
|
|
/fac {
|
|
{ {pop zero?} {pop succ} {{dup pred} dip i *} ifte }
|
|
y
|
|
}.
|