$b=$_="^"x14 .'@<'."v"x14; $a.="$_\n",s/.>v/; $a="$_\n$a",s/\^>|>v/>>/g while/v/; print$a