main@m=do s<-getLine;putStrLn$unwords[show i|(i,c)<-zip[1..]s,c<'[',c>'@'];m