def w(a:Int*)=a map System.out.write
var b,i,j=1
while(b>0)w{b=System.in.read
if(b>10){j=b%4
if(b<72){i=b
j=2}
b}else{i-1 to i+4 map{k=>j+=k%7%3/2
w(32,k%7+65)
if(j%2>0)w(226,153,172+j)
if(j%4<1)w(240,157,132,171-j/4)
j-=1>>k-i}
10}}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).