main=putStr[c|i<-[0..27],j<-map abs[-13..16],let(x?y)z=i-j==x&&j>=y&&j21&&j==1]='o'|or[0?0$9,1?0$1,4?4$10,9?5$13]='*'|j>15='\n'|0<1='_']