#!/usr/bin/gpp
Calcul alternatif de PI ! par Tout!#
b=*(0)
n=&b
§1
INITIALISATION()x
INITIALISATION()y
n=+*(1)
GOTOGOTO()*(2)}&x&x MULTIPLICATION{+}&y&y MULTIPLICATION{-?9950
b=+*(1)
§2
GOTOGOTO()*(1)?90
GOTOPRINTDUTEXTE();&b MULTIPLICATION?4,0:&n
GOTOGOTO()*(1)?100