int main() {
  init_grid (1);
  
  while (true) {
    scalar s[];
    break;
  }

  for (scalar s in all) {
    fprintf (stderr, "%s\n", s.name);
    return 1; // error
  }
}