Listing 7

void FOO(long *l);
main ()
 {
   long l = 5000;
   FOO(&l);
 }