write(1:3*grepl("c",s<-scan("stdin",""))+rep(1:3,,,3)*!"r">s,1,3)