struct st {char a, b, c, d; }

zloop (struct st *s, int *p, int *q)
{
  int i;
  struct st ss;

  for (i = 0;  i < 100;  i++)
    {
      ss = s[i];
      p[i] = ss.c;
      q[i] = ss.b;
    }
}