main   xtlang

(bind-func main 100000000
  (let ((program (pipeline input_80211
                           scramble_80211
                           encode_80211
                           chunk_80211
                           (splitjoin DUP_RR fir_half_80211 2)
                           output_80211))
        (t 0))
    (lambda (iterations)
      (memzone (* 1024 1024)
        (begin
          (doloop (i iterations)
            (set! t (now))
            (program)
            (llvm_zone_reset (llvm_peek_zone_stack)))
          (println "runtime:" (/ (i64tod (- (now) t)) 44100.0) "seconds")
          (llvm_pop_zone_stack)
          void)))))