quote : string -> string
- print "foo\n"; foo > val it = () : unit - print (quote "foo" ^ "\n"); "foo" > val it = () : unit