:-set(verbose,2)?
[b]?
['example/train_187.pl']?
:- generalise(play/1)?
:- test(test_2000_progol)?
:- test(test_2000_progol,[[_,TP,FP,FN,TN]]), tell('oneResult.txt'), write(TP),write(','),write(FP),write(','),write(TN),write(','),write(FN),nl, told?