var i,j:comp;a:array[byte]of comp=(1,4,15,45,135,407,1221,3825,6696,405,1217,3651,10953,33345,405,1215,3645,10935,32805,98415,295245,930021,6,6,6,6,6,8);begin for j:=0to 27do for i:=-13to 15do write(("_*o")[a[j]div 3pow abs(i)mod 3+1],^j:i div 15)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).