for(;r=readline(s='');print(s))for each(u in"m0kg0s0A0K0mol0cd"[S="split"](0))n=(s+r[S](u))[S](/,(?!o)|\b2/).length-1,n?s+=(s&&' ')+(n>1?u+n:u):0