read.hs

module Main where

data Attribute = Text String | Name String
  deriving (Eq, Read, Show)

readA :: String -> Attribute
readA = read

showA :: Attribute -> String
showA = show

main = interact (unlines . map (showA . readA) . lines)

{-
The input stream looks like this:

Name "Charlie"
Name "Joshua"
Text "This is text."
Name "Melodie"
Text "This is not text!?"


[Surrounding white-space appears to be ignored.]
-}