SWI-Prolog
casso100