$b=$_="^"x14 .'@<'."v"x14; $a.="$_\n",s/.</<</,s/v/</ while/\^/; $_=$b,s/\^@</>>v/; $a="$_\n$a",s/\^>|>v/>>/g while/v/; print$a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page