create and delete sources in a loop

metadata.json

{
  "name": "create sources",
  "kind": "script",
  "description": "loops creation/deletion of sources, reporting timings",
  "source_code": "script.whizzml",
  "imports":[
    ],
  "inputs":[
    {"name": "iterations",
     "type": "number",
     "default": 20,
     "description": "number of sources to create"},
    {"name": "polling",
     "type": "boolean",
     "default": true,
     "description": "Whether to wait by polling GETs"}
  ],
  "outputs":[
    {
    "name": "result",
    "type": "list",
    "description": "list of [id creation-time elapsed-time]"
  }]
}

script.whizzml

(define (polling-wait id)
  (loop (s ((fetch id) "status"))
    (when (!= 5 (s "code"))
      (prog (sleep 1000)
            (recur ((with-time-log (log-info id " - fetching") (fetch id))
                    "status"))))))

(define (doit iterations polling)
  (for (n (range iterations))
    (let (t (current-time)
          iris (create-source {"remote" "https://static.bigml.com/csv/iris.csv"})
          _ ((if polling polling-wait wait) iris)
          d0 (/ (- (current-time) t) 1000)
          e ((fetch iris) ["status" "elapsed"]))
      (log-info n " " iris " create took " d0 " secs (elapsed: " e ")")
      (let (t (current-time)
            _ (delete iris)
            d1 (/ (- (current-time) t) 1000))
        (when (> d1 1) (log-info n " " iris " delete took " d1 " secs"))
        [iris d0 e]))))

(define result (doit iterations polling))