Random Fortune

s = (char*)(long)retval;                /* ouch */
		-- Larry Wall in doio.c from the perl source code