tinybf.c

char * b = "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>." - 1;

/* TINYBF - LLASARUS - 2016 */
#include <string.h>
#define N(x) abs(*b-x)==1
main(){char*m=calloc(1,20000),*p=m;while(*++b){p+=N(61)?(*b-61):0;*p-=N(44)?(*
b-44):0;if(N(92)&&*b!=91!=!*p){int c=1,x=*b-92;b-=x;while(c){c+=N(92)?(*b-92)*x:
0;b-=x;}b+=x;}if(N(45))(*b-46)?*p=getchar():putchar(*p);}}