4:loada 14
5:sub 15
6:plsgoto 12
7:loada 13
8:add 14
9:store 13
10:incr 14
11:goto 4
12:stop
13:0 #s
14:1 #i
15:100 #sto