diff --git a/src/core/CCFormat.ml b/src/core/CCFormat.ml
index 010d44a2..927c5131 100644
--- a/src/core/CCFormat.ml
+++ b/src/core/CCFormat.ml
@@ -41,6 +41,9 @@ let nativeint fmt n = Format.fprintf fmt "%nd" n
 let string_quoted fmt s = Format.fprintf fmt "\"%s\"" s
 let flush = Format.pp_print_flush
 
+let space = Format.pp_print_space
+let cut = Format.pp_print_cut
+let break fmt (m, n) = Format.pp_print_break fmt m n
 let newline = Format.pp_force_newline
 
 let substring out (s,i,len): unit =
diff --git a/src/core/CCFormat.mli b/src/core/CCFormat.mli
index 43876252..286e3118 100644
--- a/src/core/CCFormat.mli
+++ b/src/core/CCFormat.mli
@@ -34,6 +34,15 @@ val exn : exn printer
 (** Printer using {!Printexc.to_string}.
     @since 3.0 *)
 
+val space : unit printer
+(** Alias to {!pp_print_space}. *)
+
+val cut : unit printer
+(** Alias to {!pp_print_cut}. *)
+
+val break : (int * int) printer
+(** Tuple-ized {!printer} form of {!pp_print_break}. *)
+
 val newline : unit printer
 (** Force newline (see {!Format.pp_force_newline}).
     @since 1.2 *)