(dm update-board> (X Y S)
    (let (Game-board (: board)
          Row (get game-board Y)
          Col (get Row X))
      (if (= Col 0)
          (begin
           (put Row X S)
           (put Game-board Y Row)
           (set (:: board) Game-board)
           T)
        F)))