(import (scheme base)
        (scheme write)
        (retropikzel tap)
        (retropikzel debug)
        (retropikzel parallel)
        (srfi 19)
        (srfi 64))

(test-runner-current (tap-runner))

(define lst '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16))

(write (parallel-map '((scheme base)) (lambda (i) (+ i 1)) lst))
(newline)
(newline)
(write (parallel-map '((scheme base)) (lambda (i) (+ i 1)) lst))
(newline)
(newline)
(write (parallel-map '((scheme base)) (lambda (i) (+ i 1)) lst))
(newline)
(newline)