readtest.hs

data AorOther = A | Other deriving (Show, Eq)

instance Read AorOther where
read x
	| x == "A"  = A
	| otherwise = Other

toString :: AorOther -> String
toString x = " Your Input is " ++ show x

main = do
	p <- readLn
	putStrLn $ toString p