automatic margin on lines after prompt?

[ducaale]

Is it possible for utop to insert spaces or a character in lines after the prompt? something like this:

> let add a b =
-
-
-  a + b
val add : int -> int -> int = <fun>

[hyphenrf]

there's a UTop.prompt_continue but it seems to be a stub(?)