#!/usr/bin/env newlisp

(print  "Content-type: text/html\r\n\r\n")
(println "
" (real-path) "
")

(println {
})
(dolist (file (sort (directory)))
    (set 'slash (if (directory? file) "/" ""))
    (println { } file  slash {   }
        (date (last (file-info file)) 0 "%Y-%m-%d %H:%M:%S") {} 
        { 
} (format "%12.3f KB" (div (file-info file 0) 1000)) {

}))
(println {
})
(exit)

