Koch Island by ksk

$_='/\
\/'
49.upto(getc){gsub(/.+/){$_=$/*3
$&.bytes{|c|u=('%50s//\ \\\ \//   '%p+'   \/\   /  /'*5)[c,16]
gsub(/$/){u.slice!0,4}}
$_}}
print

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top