Win32APIを呼び出すってhaskellだとどう書くの？
CreateFile成功したらReadFileで適当に読んで
CloseHandleするまでちょっと書いてみてよ。