Small Brainfuck Interpereter

#define C char
#define Z ;break;case
C*p,*s,*m,d[30000];
l(int t){while(1){switch(*p){case 91:p++;l(p-s) Z 93:if(*m)p=t+s-1;else return Z 43:(*m)++ Z 45:(*m)-- Z 46:putchar(*m) Z 62:m++ Z 60:m-- Z 1:(*m)=getchar() Z 0:return;}p++;}}main(C c,C** a){m=d;s=a[1];p=s;l(0);}