WitchTest was not intended for intra-monestary use. It's more directed at our friends in New England, primarily, who have a need to process any possible backlog of witch accusations. I felt that Perl would be an ideal solution, well-suited for their needs.
Even though there are varying degrees of witches, I suppose, the determination of a woman's propensity for acts of witchcraft is more boolean than scalar. For example, the 1692 Salem spec points out that at one point, a form of traditional white magic was used (in the form of a "witch cake") to determine who a witch was. The story goes that two young girls were afflicted with horrible pains and muscle spasms. Their mother (and her Caribbean indentured servant) prepared a cake made from rye and the urine of her affected daughters, and fed it to a dog. It was believed that the dog, upon consuming the cake, would cause the witch to feel equivalent pain to what she had intended for her victims. Witches were believed to transmit evil by particles/granules/droplets expelled from their eyes, and was eliminated in the effluvia (pee and poo) of the victim, hence the use of urine in the cake.
Using white magic did not illicit much favor from the judge, as any form of magic departs from Puritan teachings--It's sort of backward logic, considering you're essentially asking the devil for help in defeating the devil. This sort of process would be well suited to automate via recursion, or by the very least, a long-sustained while loop capable of defeating the influence of the devil by means of rapid and sustained cake production and consumption:
pseudocode:
while(true)
{
## Assuming a shared structure exists to represent cake..
collectUrine();
instantiateCakeObject();
populateCakeObject(urine,rye);
bakeCake();
obtainDog();
feedDog(@Cake);
monitorSuspectedWitchesForSignsOfDistress();
}