I'm pretty sure I could do that just by using OP_PREINC and OP_UNSHIFT

From YAPC::Europe 2006 auction, photo taken at YAPC::Europe 2007 by cog. [Acme::BooK::Is::My::Bitch]