1 files changed, 10 insertions, 0 deletions

diff --git a/lib/text.ml b/lib/text.ml
new file mode 100644
index 0000000..ff1f727
--- /dev/null
+++ b/lib/text.ml
@@ -0,0 +1,10 @@
+open Base
+open Sequence
+open Sequence.Infix
+
+let center ~fill n text =
+  let padding = repeat fill and len_t = length text in
+  let len_p = (n - len_t) / 2 in
+  take (take padding len_p @ text @ padding) n
+
+let extend ~fill n text = take (text @ repeat fill) n