s=cumsum(c(19,40,42,42,43,43,19,23,24,20,25,18,28,15,30,13,32,12,33,10,11,14,10,9,10,14,11,8,10,15,12,7,10,15,12,7,11,14,13,5,12,15,12,5,13,15,11,44,44,44,44,17,18,9,17,18,9,17,17,10,17,17,10,6,12,14,12,6,12,13,12,7,13,24,8,13,22,9,15,20,10,16,17,11,32,13,30,14,29,16,27,18,24,21,21,25,14,31,46,46,47))\x0d l=c(7,15,19,23,25,8,8:5,6,rep(5,6),4,4,4,3,3,4,4,5,5,4,4,6,6,4,4,6,6,4,3,5,6,3:5,4,3,4,2,2,9,9,9,9,9,1,1,9,1,1,9,2,2,9,3,2,4,3,3,3,3,4,4,4,4,4,15,4,4,13,4,4,10,4,4,6,4,5,5,5,5,6,5,6,6,7,7,8,8,11,11,23,19,15,9)\x0d y=rep(".",1936)\x0d y[unlist(mapply(seq,s,l=l+1))]="#"\x0d write(y,"",sep="",nc=44)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).