procedure main()
   L := [: 1 to 5:]
   delete(L,4)
   insert(L,2,"hello")
   every write(!L)
end