;; TODO prelude
(defun string/join (xs &optional separator)
  (when (nil? separator)
    (setq separator " "))
  (let (accumulator "")
    (while (cons? xs)
      (if accumulator
        (setq accumulator (+ accumulator separator (car xs)))
        (setq accumulator (car xs))
        )
      (setq xs (cdr xs))
      )
    accumulator
    )
  )

(defmacro ignore (&rest expressions) nil)

(defun try-import (path)
  (when (fs/file? path) (import path) #t))
