type Line = ref object
  text: string
  prev: Line
  next: Line