main=interact(\i->unlines[l%s"<>"%s" "|l<-lines i%zipWith(s"^V")]) (a:b:c)%f=a:f a b:(b:c)%f;x%_=x s[x,y]a b|a>x=' '|a>b=y|0<1=x