let n=read_int()/2 let rec($)i?(s=String.make(n+abs i)' '^"X")_=s.[n-abs i]<-'X';i-1$print_endline s;;n$()
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page