如何在NetLogo中导出数组或有序表

let myArray make-array 5

extensions [table]
let myTable table:make

set myArray replace-item 0 myArray 10
set myArray replace-item 1 myArray 20
set myArray replace-item 2 myArray 30
set myArray replace-item 3 myArray 40
set myArray replace-item 4 myArray 50

table:put myTable "key1" 10
table:put myTable "key2" 20
table:put myTable "key3" 30
table:put myTable "key4" 40
table:put myTable "key5" 50

file-open "myArray.csv"
file-print (word "item1,item2,item3,item4,item5" crlf)
foreach myArray [item -> file-print (word item "," crlf)]
file-close

file-open "myTable.csv"
file-print (word "key,value" crlf)
table:keys myTable [key -> file-print (word key "," table:get myTable key crlf)]
file-close