What is wrong with my code?

Hi,
I am new to eclipse.
I want to write a code for sum(I,sum(J,X[I,J]))=1, in
other words, summation of X[I,J] over I and J, limited
to sum being 1.
I am trying the below but am unsuccessful.
I will be glad for any help.
/***********************************/
/* trying to find sum(I,sum(J,X(I,J))) */

:-lib(ic).


summation(X):-
dim(X,[3,3]),
X::0..1,
dim(Y,[1,3]),

(for(I,1,3),param(X,Y)
   do
     (
     for(J,1,3),
        fromto(0,In,Out,Sum),param(X,I)
           do Out is In+X[I,J]
     ),
     subscript(Y,[1,I],Sum)
),

(for(J1,1,3),
fromto(0,In1,Out1,Sum1),
param(X,Y)
do Out1 is In1+Y[1,J1]),

ic:(Sum1#=1),
labeling(X).
/***********************************/

Thanks in advance...
Swarnendu Bhushan.


__________________________________
Do you Yahoo!?
New Yahoo! Photos - easier uploading and sharing.
http://photos.yahoo.com/