#!/usr/bin/env csi -ss

(require "pilgrim")

(start 9001 #f (lambda (request response)
                  (let ((request-path (get-request-path request)))
                    (cond
                      ((equal? request-path "/")
                       (set-response-body "Hello from pilgrim!"
                                          response))
                      (else
                       (set-response-status 404
                       (set-response-body "Page not found"
                                          response)))
                    ))))