s/0/K=~y!S!!/g,print"S"x eval,0,$/for<>