inside :: Doc -> Doc -> Doc -> Doc
inside start end contents =
  start <> contents <> end
inside :: Doc -> Doc -> Doc -> Doc
inside start end contents =
  start <> contents <> end
inside start end contents =
  start <> contents <> end