client.pl  
  :- use_module(universe). 
 see universe.pl
  :- [broker].  
 include broker
  
  
  main :-
  	broker(client(universe:F)), 
 initialize the broker
  	assert(client(factory(F))),
  	run.
  	
  run :-
  	h,
  	ask('What is the state of Clinton s affairs?'),
  	write('Type h to say hallo, x to quit.'),nl.
  
  ask(X) :-
  	client(factory(F)),
  	write(client(ask(X))),nl,
  	world_ask(F,X),
  	world_tell(F,R),
  	write(client(ans(R))),nl.
  
  h :- client(factory(F)), world_hello(F). 
  q :- client(factory(F)), world_halt(F), halt.
  x :- halt.