"Four in a row" game in Prolog

I decided to publish a prolog project I wrote about 4 years ago for an Introduction to AI course at the university.