var i,j=0
val a=readLine split"[,:-~]"tail;while(i>=0&i<a.size)a{j=i
i+=a(i).toInt
j}="
"
a.mkString("[",",","]\n")map(c=>System.out.write(Seq(c,240,159,146,169)(9/c%8)))