procedure main(A)
   write(open(\A[1]|"afile","w"),"a string")
end