★使い方

$ hugs TicTacToe.hs
  または
$ ghci TicTacToe.hs

で起動し，main でスタート(後手番は main')．