[eclipse-clp-users] eclipse

how can i implement this code that taks fewer time
,num_stud(Num)
,cap_Room(Cap)

,(
for(I,1,NCourse),foreach(F,X),foreach(N,Num),param(NRoom,Cap,T,Timeslots)do
     (for(J,1,Timeslots),foreach(M,F),param(I,NRoom,T,Cap,N)do
        (for(K,1,NRoom),foreach(H,M),foreach(C,Cap),param(T,N,I,J)do
          U is (C-N),
          subscript(T,[I,J,K],BB),
         (U<0->G is (N-C);G is 0),
          %BB is T[I,J,K],
          H#=G*BB

        )
     )
 )
 ,flatten(X,L3)
 ,Z#=sum(L3)