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