open(1,access="append")
       write(1,"(A)") "aap"
       close(1)
       end