int
main(int argc, char *argv[])
{
char P[30000], *L[32], *p = P, *s, **l = L;
bzero(p, sizeof(P));
for(s = argv[argc - 1]; *s; s++)
switch(*s){
case '>': p++; break;
case '<': p--; break;
case '+': ++*p; break;
case '-': --*p; break;
case '.': write(1, p, 1); break;
case ',': read(0, p, 1); break;
case '[': *l++ = s; break;
case ']': l--; if(*p)s = *l - 1; break;
}
return 0;
}