1 array 8 1
2 var 8
4 zero 1
5 one 1
6 ones 8
7 one 8
8 write 8 1 1 4 6
9 write 8 1 8 5 7
10 eq 1 8 9
11 read 8 9 10 
12 eq 1 2 11
13 root 1 12