let fill_riddle riddle from_row from_col offset_row offset_col =
      for i = 1 to offset_row do
        for j = 1 to offset_col do
          riddle.(from_row + i - 1).(from_col + j - 1) <- 
            (from_row, from_col);
        done;
      done;
      ()