Added a script to consult it in swipl or yap