>> (pchar arg[][], int length)    
{
  read (pchar file_name, ((pchar) .) fp)
  {
    file_size = file_size (file_name);

    string = alloc (&_, T_CHARS, file_size); 
    error (ERR_MEMORY) : (!string);

    file = open (file_name);
    read (string, file, file_size);

    fp (string);
  }
  /
  {
    close (&file);
    free (&string);
  }

  if (length > 1)
  {
    file_name = arg[length - 1][0];

    if (file_name->file_exists ()) 
    {
      read (file_name, (str) {
                               print (str);
                             });
    }
    else 
    {
      print ("File not found: %s" "\n", file_name); exit (1);
    }
  }
  else
  {
    exe_name = arg[0][0];

    print ("Usage: %s {file_name.ext}" "\n", exe_name); exit (1);
  }
}