let
quote ?(l=
"'"
) ?(r=
"'"
) (x:string) = l^x^r