` FILE:    callpi.x
` PURPOSE: compute pi to 100 terms
` METHOD:  4*(1 - 1/3 + 1/5 - 1/7 + 1/9...)
`          Number of terms is input

pi100, eps := pi := 100;