structure Sql :> SQL =
struct
    val $ = String.concat o (List.map (fn SMLofNJ.QUOTE s => s | SMLofNJ.ANTIQUOTE s => s))
end