?- board6(S),showState(S),northLine(S,1,[3,5],Line).
. . . . . . 
. . . . . . 
. . 2 1 . . 
. . 1 2 . . 
. . . 2 . . 
. . . . . . 

S = [['.', '.', '.', '.', '.', '.'], ['.', '.', '.', '.', '.', '.'], ['.', '.', 2, 1, '.', '.'], ['.', '.', 1, 2, '.'|...], ['.', '.', '.', 2|...], ['.', '.', '.'|...]]
Line = [[3, 4], [3, 3]] ;

No
?-