#!/usr/local/bin/csi -script
(use posix)
(use srfi-18)
(let* ((thread0 (make-thread
                 (lambda ()
                   (let loop ()
                     (display (string->time "1/1/1" "%m/%d/%y"))
                     (newline)
                     (loop))))))
  (thread-start! thread0)
  (let loop ()
    (display (string->time "2/2/2" "%m/%d/%y"))
    (newline)
    (loop)))