r=reverse p=tail f[]="" f(y:t)=y%t (x:s)%z|all(==x)s=x:'v':f z|0<1=x:'>':s%(map p z) x%_=x main=interact$p.r.f.lines.r