1 var 8 
2 var 8 
3 var 8 
4 var 8 
5 array 8 8 
6 array 8 8 
7 write 8 8 5 1 2
8 write 8 8 6 3 4
9 eq 1 7 8

10 eq 1 2 4
11 eq 1 5 6

12 eq 1 1 3
13 and 1 10 11
14 eq 1 9 13
15 implies 1 12 14
16 root 1 -15