(let ((extension (car (reverse (string-split (basename path) #\.)))))

    (match extension

      ("scm" (highlight lex-scheme content))

(define (split-lines content)

  (let loop ((content content) (result '()) (line '()))