MAX_* // LINES : 2^16;

>> ()
{
  read (vb -w lines[], pint -w cntr, int max_lines, char file_name[])
  {
    file = open (file_name);

    lines_in (file, (pchar line) {
                                   pchar string_ptr = .; length = _ (line);
                                   set (string_ptr, length, line), { lines[*cntr], string_ptr = alloc (&_, &__, T_STRING, length) };
                                   *cntr ++;
                                 });
  }
  /
  {
    close (&file);
  }

  int length, vb lines[MAX_LINES] = {}; 

  read (lines, &length, array_length (lines), file_name), { file_name[] = "text.txt" };

  ...

}