(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))