module Main where 
{

  import Data.Char;

  main :: IO ();
--  main = getContents            >>= \ s ->
--         putStr (map toUpper s) >>= \ _ -> 
--         putStr (map toLower s) 
  main = do {
           s <- getContents;
           putStr (map toUpper s);
           putStr (map toLower s)        
         } 
}