fof(an,axiom,p).
fof(another,axiom,p => q).
tpi(1,execute_async,'ASYNC_SZS_STATUS' =
'/home/tptp/Systems/Paradox---4.0/paradox --time 300 --tstp $getgroups(tpi)').
fof(a,conjecture,q).
tpi(2,execute,'SZS_STATUS' =
'/home/tptp/Systems/E---1.8/eprover --auto --cpu-limit=300 --tstp-format $getgroups(tpi)').
tpi(3,waitenv,'ASYNC_SZS_STATUS').
tpi(4,write,'Axioms status: ' & $getenv('ASYNC_SZS_STATUS')
& ' Conjecture status: ' & $getenv('SZS_STATUS')).
tpi(5,exit,exit).