Malbolge in LOLScript

gistfile1.lua

MAH PROGRAM SHUD BE "(=<`#9]~6ZY32Vx/4Rs+0No-&Jk)\"Fh}|Bcy?`=*z]Kw%oG4UUS0/@-ejc(:'8dc"
MAH ENCOD SHUD BE {
	[0] SHUD BE 57 ,109,60 ,46 ,84 ,86 ,97 ,99 ,96 ,117,89 ,42 ,77 ,75 ,39 ,88 ,126,120,68 ,
	108,125,82 ,69 ,111,107,78 ,58 ,35 ,63 ,71 ,34 ,105,64 ,53 ,122,93 ,38 ,103,
	113,116,121,102,114,36 ,40 ,119,101,52 ,123,87 ,80 ,41 ,72 ,45 ,90 ,110,44 ,
	91 ,37 ,92 ,51 ,100,76 ,43 ,81 ,59 ,62 ,85 ,33 ,112,74 ,83 ,55 ,50 ,70 ,104,
	79 ,65 ,49 ,67 ,66 ,54 ,118,94 ,61 ,73 ,95 ,48 ,47 ,56 ,124,106,115,98 ,
}
MAH OUT SHUD BE {}
MAH SOMETHING CRAZY (A,B)
	MAH OT SHUD BE OUT[A..","..B]
	IF LE OT DEN 
		GET OUT OT
	LOLK
	MAH CR SHUD BE {[0] SHUD BE {[0] SHUD BE 1,0,0},{[0] SHUD BE 1,0,2},{[0] SHUD BE 2,2,1}}
	MAH O,BS SHUD BE 0
	FER L1 SHUD BE 0,9 PLZ
		BS SHUD BE 3^L1 
		O SHUD BE O+(3^L1)*CR[math.floor(A/BS)%3][math.floor(A/BS)%3]
	LOLK
	OUT[A..","..B]=O
	GET OUT O
LOLK
MAH A SHUD BE 0
MAH U SHUD BE 0
MAH VOTIN SHUD BE 0
MAH FAG SHUD BE 4
MAH BSE SHUD BE 59049
MAH O SHUD BE ""
MAH DOWN SHUD BE {}
FER L1 SHUD BE 1,#PROGRAM PLZ
	DOWN[L1-1] SHUD BE string.byte(PROGRAM,L1,L1)
LOLK
FOR L1 SHUD BE #PROGRAM+1,BSE PLZ
	DOWN[L1]=CRAZY(DOWN[L1-1],DOWN[l1-2])
LOLK
LOL WHILE YA DO
	MAH LEIP SHUD BE U
	MAH OP SHUD BE (DOWN[U]+U)%94
	IF LE OP IS FAG DEN
		U SHUD BE DOWN[VOTIN]
	OR ELSE IFDIS OP IS 5 DEN
		io.write(string.char(A%256))
	OR ELSE IFDIS OP IS 23 DEN
		A SHUD BE string.byte(io.read(1))
	OR ELSE IFDIS OP IS 39 DEN
		A SHUD BE ((DOWN[VOTIN]%3)*3^9)+math.floor(DOWN[VOTIN]/3)
		DOWN[VOTIN] SHUD BE A
	OR ELSE IFDIS OP IS 40 DEN
		VOTIN SHUD BE DOWN[VOTIN]
	OR ELSE IFDIS OP IS 62 DEN
		A SHUD BE CRAZY(DOWN[VOTIN],A)
		DOWN[VOTIN] SHUD BE A
	OR ELSE IFDIS OP IS 81 DEN
		BREAK ME KK
	LOLK
	DOWN[U] SHUD BE ENCOD[DOWN[U]%94] OR DOWN[U]
	U SHUD BE (U+1)%BSE
	VOTIN SHUD BE (VOTIN+1)%BSE
LOLK