print$_=">"x29 ."v
";eval's/>v/vv/,s/\^v./^@</,print,s/>/^/,s/.(<+)v/<$1</,'x29