Print values nicely in utop

Haskell's ghci can print nicely any value belonging to a type that implements Show typeclass. Is there any equivalent in OCaml that lets utop automatically print values of user-defined types nicely? Typing x |> M.to_string every line is quite tedious…