すいません
do cs <- getContents
　hoge <- getContents
　putStr hoge
じゃなくて
do hoge <- getContents
　cs <- getContents
　putStr hoge
の間違いでしたorz