4.3BSD/usr/contrib/icon/test/std09.icn

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

procedure dummy(u,v,x,y,z)
   suspend u | v
   return x
end

procedure main()
   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")
   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")
   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")
   write("x + 1 ----> ",image(x + 1) | "none")
end