Welcome to the CHICKEN Scheme pasting service

#!/bin/sh
#|
exec csi -s "$0" "$@"
|#

(use srfi-1
     lowdown)

(define (text->html)
  (write-string
   (string-append
    "<pre>\n"
    (read-string)
    "\n</pre>\n")))


(define args
  (command-line-arguments))

(define filename (car args))
(define extension
  (let ((l (string-split filename ".")))
    (and (pair? (cdr l)) (cadr l))))

(cond
 ((equal? extension "md")
  (markdown->html (current-input-port)))
 (else
  (text->html)))

#!/usr/local/chickens/spiffy/bin/csi -s

(use lowdown files data-structures)

;; Avoid unnecessarily loading Spiffy again
;; (this must be as fast as possible)
(define (htmlize str)
  (string-translate* str '(("<" . "&lt;")    (">" . "&gt;")
                           ("\"" . "&quot;") ("'" . "&#x27;") ("&" . "&amp;"))))

(define (text->html)
  (write-string
   (string-append "<pre>\n" (htmlize (read-string)) "\n</pre>\n")))

(define file (car (command-line-arguments)))

(if (equal? (pathname-extension file) "md")
    (markdown->html (current-input-port))
    (text->html))