import Char
main=interact$(\x->unlines$x#mapM(\c->[toUpper c,toLower c])x).init
a#(b:x)|a==b=b:x|0<1=a#(x++[b])