test0 :- L = [
		[_, 4, 2, _],
		[_, 2, _, 4],
		[4, _, _, _],
		[2, _, 4, 1]],
	 sudoku(L). 

test1 :-
        L = [
             [_,6,_,1,_,4,_,5,_],
             [_,_,8,3,_,5,6,_,_],
             [2,_,_,_,_,_,_,_,1],
             [8,_,_,4,_,7,_,_,6],
             [_,_,6,_,_,_,3,_,_],
             [7,_,_,9,_,1,_,_,4],
             [5,_,_,_,_,_,_,_,2],
             [_,_,7,2,_,6,9,_,_],
             [_,4,_,5,_,8,_,7,_]],
        sudoku(L).

%Fiendish puzzle
test2 :-
        L = [
             [_,_,4 ,_,_,3, _,7,_],
             [_,8,_ ,_,7,_, _,_,_],
             [_,7,_ ,_,_,8, 2,_,5],
             [4,_,_ ,_,_,_, 3,1,_],
             [9,_,_ ,_,_,_, _,_,8],
             [_,1,5 ,_,_,_, _,_,4],
             [1,_,6 ,9,_,_, _,3,_],
             [_,_,_ ,_,2,_, _,6,_],
             [_,2,_ ,4,_,_, 5,_,_]],
        sudoku(L).

%This is supposed to be hard.
test3 :-
        L=
        [
         [_,4,3,_,8,_,2,5,_],
         [6,_,_,_,_,_,_,_,_],
         [_,_,_,_,_,1,_,9,4],
         [9,_,_,_,_,4,_,7,_],
         [_,_,_,6,_,8,_,_,_],
         [_,1,_,2,_,_,_,_,3],
         [8,2,_,5,_,_,_,_,_],
         [_,_,_,_,_,_,_,_,5],
         [_,3,4,_,9,_,7,1,_]
        ],
        sudoku(L).

test4 :-
        %Diaboloical puzzle 104 Sunday Torygraph.
        L=
        [
         [8,_,3,_,2,9,7,1,6],
         [_,_,6,_,1,8,5,_,4],
         [_,_,_,_,6,_,_,_,8],
         [_,_,5,_,4,6,_,8,_],
         [7,_,9,_,3,5,6,4,2],
         [_,6,_,_,9,_,1,_,5],
         [6,_,_,_,7,_,_,5,1],
         [_,_,1,6,5,_,8,_,_],
         [5,_,_,9,8,1,4,6,3]
         ],
        sudoku(L).

mytest :-
        %An easy sudoku from the web.
        L=[
           [_,_,_,7,6,_,_,_,_],
           [2,_,_,_,_,_,5,6,_],
           [5,_,_,_,_,_,1,_,_],
           [_,7,_,1,_,2,_,_,_],
           [_,5,_,_,_,4,_,_,1],
           [_,4,_,_,7,_,2,_,9],
           [3,_,_,_,2,9,_,_,_],
           [1,_,8,_,_,_,_,4,_],
           [_,_,4,_,_,3,_,5,_]
           ],
        sudoku(L).

test5 :-
        %An easy sudoku from the web.
        L=[
           [_,_,_,1,5,_,_,7,_],
           [1,_,6,_,_,_,8,2,_],
           [3,_,_,8,6,_,_,4,_],
           [9,_,_,4,_,_,5,6,7],
           [_,_,4,7,_,8,3,_,_],
           [7,3,2,_,_,6,_,_,4],
           [_,4,_,_,8,1,_,_,9],
           [_,1,7,_,_,_,2,_,8],
           [_,5,_,_,3,7,_,_,_]
           ],
        sudoku(L).