outlook :: Player -> Field -> GameTree
outlook player field = if endPosition field == Just (Just(switch player))
                          then Lost
                          else if possibleMoves field /= []
                                  then Continue [(pos, tree) | pos <- possibleMoves field, tree <- outlook (switch player) (makeMove player pos field)]
                                  else Draw