This program which is written in SWI-Prolog makes the "connect 4" game. just type "play." to start seeing the play. There are two opponents there, X and O which are both computer and compete.