let
quote =
Some
(
fun
x
->
"'"
^x^
"'"
)