

oldgood(G,O,L,D) :-
   fd_domain([G,O],1,9), 
   fd_domain([L,D],0,9), 
   1000*G + 100*O + 10*O + D #= 300*O + 30*L + 3*D.
 % fd_labeling([G,O,L,D]) n'est pas nécéssaire ici !
