record array(a,b,c,d,e,f,g)

procedure p1()
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i =:= 9 ----> ",image(i =:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i =:= 10 ----> ",image(i =:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i =:= 11 ----> ",image(i =:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i >=:= 9 ----> ",image(i >=:= 9) | "none")
end

procedure p2()
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i >=:= 10 ----> ",image(i >=:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i >=:= 11 ----> ",image(i >=:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i >:= 9 ----> ",image(i >:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
end

procedure p3()
   write("i >:= 10 ----> ",image(i >:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i >:= 11 ----> ",image(i >:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i <=:= 9 ----> ",image(i <=:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i <=:= 10 ----> ",image(i <=:= 10) | "none")
   write("i ----> ",image(i) | "none")
end

procedure p4()
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i <=:= 11 ----> ",image(i <=:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i <:= 9 ----> ",image(i <:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i <:= 10 ----> ",image(i <:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i <:= 11 ----> ",image(i <:= 11) | "none")
end

procedure p5()
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i ~=:= 9 ----> ",image(i ~=:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i ~=:= 10 ----> ",image(i ~=:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i ~=:= 11 ----> ",image(i ~=:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
end

procedure p6()
   write("i +:= 9 ----> ",image(i +:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i +:= 10 ----> ",image(i +:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i +:= 11 ----> ",image(i +:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i -:= 9 ----> ",image(i -:= 9) | "none")
   write("i ----> ",image(i) | "none")
end

procedure p7()
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i -:= 10 ----> ",image(i -:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i -:= 11 ----> ",image(i -:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i *:= 9 ----> ",image(i *:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i *:= 10 ----> ",image(i *:= 10) | "none")
end

procedure p8()
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i *:= 11 ----> ",image(i *:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i /:= 9 ----> ",image(i /:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i /:= 10 ----> ",image(i /:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
end

procedure p9()
   write("i /:= 11 ----> ",image(i /:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i %:= 9 ----> ",image(i %:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i %:= 10 ----> ",image(i %:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i %:= 11 ----> ",image(i %:= 11) | "none")
   write("i ----> ",image(i) | "none")
end

procedure p10()
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i ^:= 9 ----> ",image(i ^:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<:= \"x\" ----> ",image(s <<:= "x") | "none")
end

procedure p11()
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<:= \"xx\" ----> ",image(s <<:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<:= \"X\" ----> ",image(s <<:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<:= \"abc\" ----> ",image(s <<:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
end

procedure p12()
   write("s ~==:= \"x\" ----> ",image(s ~==:= "x") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ~==:= \"xx\" ----> ",image(s ~==:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ~==:= \"X\" ----> ",image(s ~==:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ~==:= \"abc\" ----> ",image(s ~==:= "abc") | "none")
   write("s ----> ",image(s) | "none")
end

procedure p13()
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ?:= \"x\" ----> ",image(s ?:= "x") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ?:= \"xx\" ----> ",image(s ?:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ?:= \"X\" ----> ",image(s ?:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ?:= \"abc\" ----> ",image(s ?:= "abc") | "none")
end

procedure p14()
   write("s ----> ",image(s) | "none")
   write("s ?:= s ----> ",image(s ?:= s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ==:= \"x\" ----> ",image(s ==:= "x") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ==:= \"xx\" ----> ",image(s ==:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ==:= \"X\" ----> ",image(s ==:= "X") | "none")
   write("s ----> ",image(s) | "none")
end

procedure p15()
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ==:= \"abc\" ----> ",image(s ==:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s >>=:= \"x\" ----> ",image(s >>=:= "x") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s >>=:= \"xx\" ----> ",image(s >>=:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s >>=:= \"X\" ----> ",image(s >>=:= "X") | "none")
end

procedure p16()
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s >>=:= \"abc\" ----> ",image(s >>=:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s >>:= \"x\" ----> ",image(s >>:= "x") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s >>:= \"xx\" ----> ",image(s >>:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
end

procedure p17()
   write("s >>:= \"X\" ----> ",image(s >>:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s >>:= \"abc\" ----> ",image(s >>:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<=:= \"x\" ----> ",image(s <<=:= "x") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<=:= \"xx\" ----> ",image(s <<=:= "xx") | "none")
   write("s ----> ",image(s) | "none")
end

procedure p18()
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<=:= \"X\" ----> ",image(s <<=:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<=:= \"abc\" ----> ",image(s <<=:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("s >>:= 0 ----> ",image(s >>:= 0) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ++:= \"x\" ----> ",image(s ++:= "x") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
end

procedure p19()
   write("s ++:= \"xx\" ----> ",image(s ++:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ++:= \"X\" ----> ",image(s ++:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ++:= \"abc\" ----> ",image(s ++:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s --:= \"x\" ----> ",image(s --:= "x") | "none")
   write("s ----> ",image(s) | "none")
end

procedure p20()
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s --:= \"xx\" ----> ",image(s --:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s --:= \"X\" ----> ",image(s --:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s --:= \"abc\" ----> ",image(s --:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s **:= \"x\" ----> ",image(s **:= "x") | "none")
end

procedure p21()
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s **:= \"xx\" ----> ",image(s **:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s **:= \"X\" ----> ",image(s **:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s **:= \"abc\" ----> ",image(s **:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("c := 'abcd' ----> ",image(c := 'abcd') | "none")
end

procedure p22()
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s **:= \"xx\" ----> ",image(s **:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s **:= \"X\" ----> ",image(s **:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s **:= \"abc\" ----> ",image(s **:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("c ++:= 'de' ----> ",image(c ++:= 'de') | "none")
end

procedure p23()
   write("c --:= 'a' ----> ",image(c --:= 'a') | "none")
   write("c **:= 'd' ----> ",image(c **:= 'd') | "none")
   write("s := [1,2,3] ----> ",image(s := [1,2,3]) | "none")
   write("s |||:= s ----> ",image(s |||:= s) | "none")
   write("s |||:= s ----> ",image(s |||:= s) | "none")
   write("one := [1] ----> ",image(one := [1]) | "none")
   write("two := [2,2] ----> ",image(two := [2,2]) | "none")
   write("x := one ----> ",image(x := one) | "none")
   write("x &:= one ----> ",image(x &:= one) | "none")
   write("x ----> ",image(x) | "none")
   write("x := one ----> ",image(x := one) | "none")
end

procedure p24()
   write("x &:= two ----> ",image(x &:= two) | "none")
   write("x ----> ",image(x) | "none")
   write("x := one ----> ",image(x := one) | "none")
   write("x |||:= one ----> ",image(x |||:= one) | "none")
   write("x ----> ",image(x) | "none")
   write("x := one ----> ",image(x := one) | "none")
   write("x |||:= two ----> ",image(x |||:= two) | "none")
   write("x ----> ",image(x) | "none")
   write("x := one ----> ",image(x := one) | "none")
   write("x ===:= one ----> ",image(x ===:= one) | "none")
   write("x ----> ",image(x) | "none")
end

procedure p25()
   write("x := one ----> ",image(x := one) | "none")
   write("x ===:= two ----> ",image(x ===:= two) | "none")
   write("x ----> ",image(x) | "none")
   write("x := one ----> ",image(x := one) | "none")
   write("x ~===:= one ----> ",image(x ~===:= one) | "none")
   write("x ----> ",image(x) | "none")
   write("x := one ----> ",image(x := one) | "none")
   write("x ~===:= two ----> ",image(x ~===:= two) | "none")
   write("x ----> ",image(x) | "none")
end

procedure main()
   p1()
   p2()
   p3()
   p4()
   p5()
   p6()
   p7()
   p8()
   p9()
   p10()
   p11()
   p12()
   p13()
   p14()
   p15()
   p16()
   p17()
   p18()
   p19()
   p20()
   p21()
   p22()
   p23()
   p24()
   p25()
end

global i, s, c, one, two, x