#! A spigot algorithm for the Digits of \pi, Stanley Rabinowitz
   and Stan Wagon, Amer.Math.Monthly, March 1995, 195-203
!#

niveaugourou 0

N=*(1000)
LEN= }}*(10)MULTIPLICATION &N{:*(3){

costaud j=*(0)/&j inf &LEN/j=+*(1)/a<&j>=*(2)
nines=*(0)/predigit=*(0)

costaud j=*(0)/&j inf &N/j=+*(1)
	q=*(0)
	costaud i=&LEN/&i diff *(0)/i=-*(1)
		x=}*(10) MULTIPLICATION &a<&i-*(1)>{+}&q MULTIPLICATION &i{
		a<&i-*(1)>=&x RESTEDELADIVISIONPAR }}*(2) MULTIPLICATION &i{-*(1){
		q=&x : }}*(2) MULTIPLICATION &i{-*(1){
	faiblard
	
	a<*(0)>=&q RESTEDELADIVISIONPAR *(10)
	q:=*(10)
	AUTOGOTOZ }&q eg *(9){/nines=+*(1)
	ACAC/AUTOGOTOZ}&q eg *(10){
		GOTOPRINTDUTEXTE(&predigit+*(1))
		predigit=*(0)
		TantQue}&nines diff *(0){
			GOTOPRINTDUTEXTE(*(0))
			nines=-*(1)
		FinTantQue
	AC
	ACAC
		GOTOPRINTDUTEXTE(&predigit)
		predigit=&q
		TantQue}&nines diff *(0){
			GOTOPRINTDUTEXTE(*(9))
			nines=-*(1)
		FinTantQue
	AC
faiblard
GOTOPRINTDUTEXTE(&predigit)