longueur(X) :- X.
largeur(X) :- X.
aire(X1, Y1, X1, Y1, 1) :- write('blanc').
aire(X1, Y1, X2, Y2, N) :- X1, Y1, X2, Y2, N.
run :- write('oui').
/*
longueur(6).
largeur(6).
aire(0,0,1,1,2).
aire(2,0,2,2,-1).
aire(3,0,5,1,-1).
aire(0,2,0,4,-1).
aire(1,2,1,3,0).
aire(3,2,5,2,0).
aire(1,4,1,4,1).
aire(2,3,5,5,4).
aire(0,5,1,5,-1).
run.
*/
