while(0<1)println(("I"/:readLine)((z,c)=>Seq(z+"SK","S(K"+z+")")(c%2)))