Dot product. Run using https://github.com/eholk/harlan

gistfile1.scm

(module
  
  (extern nanotime () -> u64)

  (define (main)
    (let ((v1 (iota 1000)) (v2 (iota 1000)))
        (let ((start (nanotime)) 
              (result 
                (reduce + 
                   (kernel ((x v1) (y v2))
                           (* x y)))))
          
          (print (/ (- (nanotime) start) 1000))
          (print " | ")
          (print result)))

    (return 0)))