/*
  Primes

  Using the primes function.

  maxCount = 5
  code = prime((X + (X + 1))) = [[[2],1],[[3],1],[[4],0],[[5],1],[[6],1],[[7],0],[[8],1],[[9],1],[[10],0]] = [[1] = 1]
  code = prime(((X * 2) + 1)) = [[[2],1],[[3],1],[[4],0],[[5],1],[[6],1],[[7],0],[[8],1],[[9],1],[[10],0]] = [[1] = 1]


*/
data(prime_test,Data,Vars,Unknown,Ops,Constants,MaxC) :-
  Data = [ [[N],P] : N in 2..10, P = cond(prime(N*2+1),1,0)],
  println(data=Data),
  % get_global_map().put("debug",true),
  Unknown = [1],
  Vars = ["X"],
  Ops = new_map([infix=["+","*"],
                op1=["prime"]
                % , user3=["if_then_else"]
                % , conditions=["!=","=="]
                ]),
  Constants = 1..4,
  MaxC = 5.