m@main=do l<-getLine;putStrLn$0?[i|c<-['1'..'9'],(i,d)<-zip[1..]l,c==d];m
m?(n:r)|s<-sum[1|n<=m]="><"!!s:show(abs$m-n+s)++(n-s)?r
_?_=""