type t = Squared | Rounded

let of_kind (k : t) =
  match k with
  | Squared -> ("└", "┐", "┘", "┌")
  | Rounded -> ("╰", "╮", "╯", "╭")