type t = string
let of_string s = s
let cat a b = a ^ b
let to_string r = r