3 val a
= Array
.tabulate (n
, fn _
=> (Array
.array (1, 0),
6 val (a1
, a2
) = Array
.sub (a
, 13)
8 val _
= Array
.update (a1
, 0, 2)
9 val _
= Array
.update (a2
, 0, 3)
12 print (concat
[Int.toString (Array
.sub (#
1 (Array
.sub (a
, 12)), 0)), " ",
13 Int.toString (Array
.sub (#
2 (Array
.sub (a
, 13)), 0)), "\n"])