quoteChar :: Char -> Builder
quoteChar c = case c of
    '\n' -> string "newline"
    '\r' -> string "return"
    '\t' -> string "tab"
    ' '  -> string "space"
    _    -> singleton c
quoteChar :: Char -> Builder
quoteChar c = case c of
    '\n' -> string "newline"
    '\r' -> string "return"
    '\t' -> string "tab"
    ' '  -> string "space"
    _    -> singleton c
quoteChar c = case c of
    '\n' -> string "newline"
    '\r' -> string "return"
    '\t' -> string "tab"
    ' '  -> string "space"
    _    -> singleton c