generated html version of ocal.cHOME

#include "unistd.h"
#include "stdio.h"
#define loop for(;;)
#define ei else if
#define eg else goto

int main(int argc, char **argv){
	if(argc<1)return 0;
	char *c=argv[1];
	char *s=((char*)(&c))+1000;
	byteopmode://byte
	if(*c=='\0')return 0;
	if(*c=='#')return 0;
	ei(*c=='+'){s[-1]+=s[0];s--;}
	ei(*c=='%'){s[-1]%=s[0];s--;}
	ei(*c=='/'){s[-1]/=s[0];s--;}
	ei(*c=='*'){s[-1]*=s[0];s--;}
	ei(*c=='&'){s[-1]&=s[0];s--;}
	ei(*c=='|'){s[-1]|=s[0];s--;}
	ei(*c=='^'){s[-1]^=s[0];s--;}
	ei(*c=='='){s[-1]=s[-1]==s[0];s--;}
	ei(*c=='>'){s[-1]=s[-1]>s[0];s--;}
	ei(*c=='<'){s[-1]=s[-1]<s[0];s--;}
	ei(*c=='-'){s[0]=-s[0];}
	ei(*c=='!'){s[0]=!s[0];}
	ei(*c=='d'){s[1]=s[0];s++;}
	ei(*c=='y'){s--;}
	ei(*c=='u'){s++;}
	ei(*c=='.'){putchar(s[0]);}
	ei(*c=='p'){printf("%d ",s[0]);}
	ei(*c=='@'){s[0]=s[-s[0]];}
	ei(*c=='0'){s[1]=0;s++;c++;goto byteoctmode;}
	ei(*c>='1'&&*c<='9'){s[1]=*c-'0';s++;c++;goto bytedecmode;}
	c++;
	goto byteopmode;
	byteoctmode:
	if(*c>='0'&&*c<='7'){s[0]=s[0]*8+*c-'0';}
	eg byteopmode;
	c++;
	goto byteoctmode;
	bytedecmode:
	if(*c>='0'&&*c<='9'){s[0]=s[0]*10+*c-'0';}
	eg byteopmode;
	c++;
	goto bytedecmode;

}