a connect 4 with computer opponent in apl