structure Oo = struct ... end
struct ... end
val copy : < .. > -> < .. >
< .. > -> < .. >
Oo.copy o
o