4.3BSD/usr/contrib/icon/test/std84.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("tab := create {write(\"entering tab\"); 1 | 2 | 3} ----> ",image(tab := create {write("entering tab"); 1 | 2 | 3}) | "none")
   write("trim := create {write(\"entering trim\"); @tab | (main @:= tab)} ----> ",image(trim := create {write("entering trim"); @tab | (main @:= tab)}) | "none")
   write("@trim ----> ",image(@trim) | "none")
   write("@trim ----> ",image(@trim) | "none")
   write("write(image(trim)) ----> ",image(write(image(trim))) | "none")
   write("write(image(tab)) ----> ",image(write(image(tab))) | "none")
   write("write(image(main)) ----> ",image(write(image(main))) | "none")
   write("main @:= main ----> ",image(main @:= main) | "none")
end