\ Paul E Bennet comp.arch.embedded 4 May 2008 : sqrt -1 swap over do 2 + dup +loop 2/ ;