$_=<>,chomp; $m="\xe2\x94\x80\xe2\x94\x80\xe2\x94\x80\xe2\x94\x80\xe2\x94\x80"; print " "x($_*2-2),"\xe2\x95\xad\xe2\x94\x80\xe2\x95\xa8\xe2\x94\x80\xe2\x95\xa8\xe2\x94\x80\xe2\x95\xae\n", $_-1? " "x($_-2)."\xe2\x95\xad\xe2\x94\x80\xe2\x94\xb4$m\xe2\x94\xb4\xe2\x94\x80\xe2\x95\xae\n" : "\xe2\x94\x94$m\xe2\x94\x98" , " "x($_-2)."\xe2\x94\x82 \xe2\x94\x82\n"x($_>1), $_>2?"\xe2\x95\xad\xe2\x94\x80\xe2\x94\xb4$m\xe2\x94\x80\xe2\x94\x80\xe2\x94\x80\xe2\x94\x80\xe2\x94\xb4\xe2\x94\x80\xe2\x95\xae\n":"\xe2\x94\x94\xe2\x94\x80$m\xe2\x94\x80\xe2\x94\x80\xe2\x94\x80\xe2\x94\x98"x($_>1), "\xe2\x94\x82 \xe2\x94\x82\n\xe2\x94\x94$m$m\xe2\x94\x80\xe2\x94\x80\xe2\x94\x80\xe2\x94\x98"x($_>2)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).