The file Oka.gp contains a collection of functions which calculate numerical
invariants related to surface singularities. The comments aught to give an idea
of what each function does, but I admit that the code is a bit chaotic.