'.'%n|n>0=show n c%_=[c] f x=do i<-[0..818];x!!i%sum[1|d<-[1,40,41,42],j<-[i+d,i-d],j>0,j<819,x!!j=='*'] main=interact f
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page