integer a(28) a=(/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/) print'(29a1)_',(("*o"(mod(a(j)/3**abs(i),3):),i=-13,15),j=1,28);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).