hob(N,M,X,Y):-A is N mod Y,B is N mod X,New is N+1,N=<M,A=B,write('hob'),nl,hob(New,M,X,Y).
hob(N,M,X,Y):-A is N mod Y,B is N mod X,New is N+1,N=<M,A\=B,write(N),nl,hob(New,M,X,Y).
