1 module Prog(prog) where
    2 
    3 import Board
    4 import Wins
    5 import Game
    6 import Tree
    7 
    8 
    9 prog :: String -> String
   10 prog _ = 
   11         "OXO\n" ++
   12         concat (map showMove game)
   13         where
   14         game = alternate X max' min' testBoard
   15 
   16 
   17 testBoard = [[Empty,O,Empty],[Empty,X,Empty],[Empty,Empty,Empty]]
   18