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

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

procedure main()
   &trace := -1
   dummy{1,2,3,4}
   dummy{}
   dummy(image{1,2,3,4})
   dummy(put{1,2,3,4})
   dummy("*"{1,2,3,4})
   dummy(image("|||"([],[])))
   dummy("+"(1,2))
   dummy("+"(1))
   dummy("image"(image(image)))
   dummy("x"(1))
end