f s=['S'|5<-sum<$>mapM(gcd 3.fromEnum<$>)s]++"0\n"
main=interact$(>>=f.words).lines