#lang racket
(provide (all-defined-out))

(define (text s) s)
(define (h-append . ss) (apply string-append ss))
(define (v-concat/s ss)
  (apply string-append ss))
(define (v-concat ss)
  (apply string-append (add-between ss "\n")))
(define (apply-infix d ds)
  (add-between ds d))
(define line "\n")
(define comma ",")
(define space " ")
(define lparen "(")
(define rparen ")")
(define dot ".")
(define (nest n d) d)
(define char string)
(define doc? string?)