;;; These utilities are specific to the Haskell language.
 
 (define (add-con-prefix str)  ; should be in some utility file
   (string-append ";" str))
 
 (define (remove-con-prefix string)
   (substring string 1 (string-length string)))
 
 (define (has-con-prefix? string)
   (char=? (string-ref string 0) '#\;))
 
 (define (add-con-prefix/symbol sym)
   (string->symbol (add-con-prefix (symbol->string sym))))
 
 (define (remove-con-prefix/symbol sym)
   (string->symbol (remove-con-prefix (symbol->string sym))))
 
 (define (has-con-prefix/symbol? sym)
   (has-con-prefix? (symbol->string sym)))