var s:string;i:word;begin repeat readln(s);for i:=1to length(s)do
write("[4"+chr(57-pos(s[i],"-wc-b-grx"))+^-:ord(s[i]<>(^`+s)[i])*5,"  ");writeln("")until 0>0end.