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) {
                                   if (*cntr < max_lines)
                                   {
                                     pchar string_ptr = .; length = _ (line);
                                     set (string_ptr, length, line), { lines[*cntr], string_ptr = alloc (&_, &__, T_STRING, length) };
                                     *cntr ++;
                                   }
                                   else
                                   {
                                     break;
                                   }
                                 });
  }
  /
  {
    close (&file);
  }

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

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

  ...

}