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