#!/afs/athena/contrib/perl/p -n
# indent ifdef's in a piece of code

/^#endif/ && $ifl--;
print " " x (3*($ifl - /^#else/));
/^#if/ && $ifl++;

print;