gistfile1.txt

(define http (require "http"))

(define !
  (lambda (n)
    (if (< n 2)
        1
        (* n (! (pred n))))))

(define all
  (lambda (xs)
    (or (empty? xs)
        (and (head xs)
             (all (tail xs))))))

(.log $console (all '(1 2 3 4 5 6)))

(define server
  (.createServer http
    (lambda (req res)
      (let (n (int (drop 1 (:url req)))
            f (! n))
        (.end res (string f))))))
(.listen server 1337)