Welcome to the CHICKEN Scheme pasting service

(use inotify) ; https://github.com/wasamasa/inotify

(init!)

(add-watch! "/" '(all-events))
(let ((event (next-event!)))
  (printf "#<event ~a: ~s> ~s\n"
          (event-wd event) (event-flags event)
          (event-name event))
  ;; the following segfaults upon external action (like `ls`)
  (print event))

(clean-up!)