1:- module(tt_iface,[]).    2
    3:- if(\+ (exists_file('tt0_00022_cycl.qlf'))).    4:- format(user_error,'~NLoading tt0_00022_cycl.qlf  ... ~n',[]).    5:- time(load_files(tt0_00022_cycl,[qcompile(auto)])).    6:- endif.    7
    8:- reexport(tt0_00022_cycl).    9
   10:- reexport(ac_xnl_iface).   11:- reexport(clex_iface).   12
   13prim_acts(Z):- ttholds(_,Y,primitive_action_tt),(ttholds(_,Z,Y)*->true; Z=Y).
   14prim_acts(Z):- ttholds(_,Y,primitive_action_tt),(ttholds(_,Z,Y)*->true; Z=Y).
   15
   16:- export(prim_acts/1).