plot(c(3,17),c(3,17),type="n",xlab="",ylab="",fg="white",xaxt="n",yaxt="n")
polygon(c(17,11,9,9,8,8,7,6,4,4,5,6,5,6,7,7,8,10,17),
   c(16,16,14,17,14,17,14,10,7,6,5,6.2,5,5,6,7,8,9,7),col="grey")
lines(c(10,11,11), c(9,10,11))
polygon(c(5,5.5,5.5,5), c(7,7,6.4,6.4),col="brown")
lines(c(6,7,8,7,9,9), c(10,13,14,10,10,14))
lines(c(10,10), c(15,11))
lines(c(11,11), c(16,12))
lines(c(12,12,9), c(16,13,10))
lines(c(13,13), c(16,10))
lines(c(14,14), c(16,11))
lines(c(15,15), c(16,12))
lines(c(16,16,13), c(16,13,10))