You may have seen my Ruby-based Ook/Bf interpreter, linked from this page.
Yesterday, I happened upon the following (also Ruby-based) Bf interpreter
on <a href="this">www.cs.auc.dk/~larsch/ruby/">this
disturbed gentleman’s site</a>. I’m at a loss for words.
:)

<PRE>
a=’p=0;t=""*30000;’;$<.each_byte{|c|a<<({?>=>"p+=1;",?<=>"p-=1;",?=>
"t[p]
=1;",?-=>"t[p]-=1;",?[=>"while
t[p]>0;",?]=>"end;",?.=>"putc t[p];",
?,=>"t[p]=STDIN.getc||0;"}||"")};eval a
</PRE>