bleh.hs

-- basic conversion of lowercase to caps using xor, port of logic from bleh.asm.
-- aka msify because microsoft LOVES caps.

import Data.Bits
import Data.Int
import Data.Char
import Control.Monad

caps :: Char -> Char
caps x =
    if x >= 'a' && x <= 'z' then
        chr(ord(x) `xor` 32)
    else
        x

bleh :: [Char] -> [Char]
bleh x =  map caps x

main :: IO()
main = do
    when (True) $ do
        tstring <- getLine
        putStrLn (bleh tstring)
        main