test36   xtlang

(bind-func test36
  (lambda ()
    (memzone 1024
      (let ((k:|15,double|* (zalloc))
            (f (lambda (fa:|15,double|*)
                 (memzone 1024
                   (let ((a:|10,double|* (zalloc))
                         (i 0))
                     (dotimes (i 10)
                       (aset! a i (* (aref fa i) (random))))
                     a)))))
        (f k)))))