main=interact$map last.foldr(!)[]
a!x|elem[a]x=x|l<-" v":x=max l$[a]:min(">":x)x