print map{$l=$x="";@b=@a;@a=/./g;!??&&$/.(join$"x3,map$b[$x++]<$_?"^":V,@a).$/,map{$l?$l<$_?" < ":" > ":$a,$l=$_}@a}<>