print map{$l=$x="";@b=@a;@a=/./g;!??&&$/.(join$"x3,map$b[$x++]<$_?"^":V,@a).$/,map{$l?$l<$_?" < ":" > ":$a,$l=$_}@a}<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page