\newcount \hi
\newcount \lo
\newcount \n
\newcount \temp
\newdimen \ratio
\newdimen \goldenratio 
\newdimen \diff
\hi = 1
\lo = 1
\n = 1
\goldenratio = 1.6180339887498949pt
\immediate\write16{\the\n \space \the\lo}
\loop
	\advance \n by 1
	\ratio = \hi sp
	\multiply \ratio by 16384
	\divide \ratio by \lo
        \multiply \ratio by 4
	\diff = \ratio
	\advance \diff by -\goldenratio
	\immediate\write16{\the\n \space \the\hi \space \the\ratio \space \the\diff}
	\advance \hi by \lo
	\temp = -\lo
	\advance \temp by \hi
	\lo = \temp
\ifnum \n < 24 \repeat
\bye