mapM00.hs

import Control.Monad.State

-- 人
data Person = Person { name :: String  -- 名前
                     , age  :: Int     -- 年齢
                     } deriving Show 

-- グループ
data Group = Group [Person] deriving Show

-- グループに人を追加
addPerson              :: Person -> Group -> ((), Group)
addPerson p (Group ps) = ((), Group (ps++[p]))
          
addPs' (n,a) = State $ addPerson $ Person n a

toTuple    :: String -> (String, Int)
toTuple cs = read line where line = '(' : cs ++ ")"

g = Group []

main = do cs <- getContents
          print $ (execState $ mapM_ addPs' $ map toTuple $ lines cs) g