eval '$m=Hash.new(p=0); $n=Hash.new(b=0); $h=Hash.new(z=0); $d=Hash.new(q=0); (l=0);'+ARGF.read.gsub(/[A-Z][A-Z0-9]*|./,

     'SUS' => 'z+=1 if b==1; p+=1 if b==2; $m[p]=z if b==2; $m[p]=0 if b==3; p-=1 if b==3; putc $m[p] if b==4; p+=1 if b==5; $m[p]=STDIN.getbyte if b==5 and !STDIN.eof; p-=rand(z) if b==6; print $m[p] if b==7; z-=1 if b==8; z=$m[p] if b==9; z+=z if b==10; z=0 if b==11; z+=10 if b>11;',
     'RED' => 'b=1;',
     'BLUE' => 'b=2;',
     'PURPLE' => 'b=3;',
     'GREEN' => 'b=4;',
     'YELLOW' => 'b=5;',
     'CYAN' => 'b=6;',
     'BLACK' => 'b=7;',
     'WHITE' => 'b=8;',
     'BROWN' => 'b=9;',
     'LIME' => 'b=10;',
     'PINK' => 'b=11;',
     'ORANGE' => 'b=12;',
     'VENTED' => 'l+=10;',
     'SUSSY' => 'l-=1;', 
     'ELECTRICAL' => 'l=0;',
     'WHO' => '(',
     'WHERE' => ')while(($m[p]&=255)!=l);')