sig
  type pr_context = { ind : int; bef : string; aft : string; dang : string; }
  val empty_pc : Pprintf.pr_context
  val sprint_break :
    int ->
    int ->
    Pprintf.pr_context ->
    (Pprintf.pr_context -> string) ->
    (Pprintf.pr_context -> string) -> string
  val sprint_break_all :
    bool ->
    Pprintf.pr_context ->
    (Pprintf.pr_context -> string) ->
    (int * int * (Pprintf.pr_context -> string)) list -> string
end