-- Translating a position
translate :: Position -> Position -> Position
translate (Position row col) (Position drow dcol) =
  Position (row + drow) (col + dcol)
translate :: Position -> Position -> Position
translate (Position row col) (Position drow dcol) =
  Position (row + drow) (col + dcol)
translate (Position row col) (Position drow dcol) =
  Position (row + drow) (col + dcol)