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