(let ((type int_pair (record int int))
      (type map (array int_pair))
      (var m (new-array map 10 (new int_pair 0 0))))
  (dot (aref m 3) 1))