read x||[ $x ]&&(J=I
while [ $x ]
do [[ $x = 0* ]]&&J=$J\SK||J=S\(K$J\)
x=${x#?}
done
echo $J
. *)