for(s<-Seq("Cognitive ","Cock and ");t<-Seq("Behavioral ","Ball ");u<-Seq("Therapy","Torture"))println(s+t+u)