how to run this module?
what should be the input command
move(state(L,R),state(L1,R1)):-
count(L,N1),
count(R,N2),
change((L,R),(L1,R1),(N1,N2)).
count([],0).
count([_|S], N) :-
count(S,C), N is C + 1.
change((L,R),(L1,R1),(A1,B1)):-
((A1=3,B1=3),
((L=[X1,X2,X3|T]...