prolog : test de perf