1:- module(odict, []).    2:- use_module('odict/odict-attr').    3:- use_module('odict/odict-expand').    4
    5% The following clause is asserted at the bottom line of i-attr.pl.
    6%
    7%	user:expand_query(X, Y, Z, Z):- odict_expand:odict_expand(X, Y).
    8%
    9% It does not work if the close is moved into this file.
   10% I don't know the reason.  Despite of reading the manual,
   11% I may be still missing something on
   12%
   13%	expand_query/4 and expand_goal/2,
   14%
   15% Enjoy,
   16%
   17% Kuniaki Mukai
   18
   19:- module(odict).   20
   21% for test.
   22% ?- ['odict/ptq-fragment'].
   23%@ No source location!?
   24%@ true.
   25% ?- run_samples.