main = do

    mapM_ (\x ->  do
        let r = either (error . show) id $ parseUtf7 x 
        putStrLn r
      ) xs
main = do

    mapM_ (\x ->  do
        let r = either (error . show) id $ parseUtf7 x 
        putStrLn r
      ) xs
main = do

    mapM_ (\x ->  do
        let r = either (error . show) id $ parseUtf7 x 
        putStrLn r
      ) xs