[DonHopkins]

Or the PostScript equivalent:

    /poop { pop pop } def       % number two
    /pooop { poop pop } def     % number three
    /poooop { poop poop } def   % number four

Inspired by graaand tradition of Lisp: http://clhs.lisp.se/Body/f_car_c.htm