CSV to Markdown converter written in Racket

csv-to-markdown-table.rkt

; The first line of the input is considered to be the heading!
; It accepts either one command line argument with the CSV file path
; or it reads the input from `stdin`.

#lang racket
(require csv-reading)

(define (getInputPort)
  (cond
    [(> (vector-length (current-command-line-arguments)) 0)
     (open-input-file (vector-ref (current-command-line-arguments) 0))]
    [#t (current-input-port)]))

(define (getInputLines) (csv-map (λ (l) l) (getInputPort)))

(define (process-line row)
  (string-append
   "|"
   (foldr string-append "" (flatten (map (λ (column)
         (list " " column " |")) row)))
   "\n"))

(define (process-header heading)
  (list
   (process-line heading)
   (process-line (map (λ (column) "---") heading))))

(define (markdownLines inputLines)
  (append
   (process-header (first inputLines))
   (map process-line (rest inputLines))))

(for-each display (markdownLines (getInputLines)))