check player s = all (\(x,y) -> not y || x == player || x == 'T' ) s
won player s = any (check player . zip s) pos 

antwort sa = let s = concat sa in
  if won 'O' s then "O won"
  else if won 'X' s then "X won"
       else if all ('.'/=) s then "Draw"