procedure main()
X := [1,2,3,-5,6,9]
every x := !L do
   write(x)
end