unsafePerformIOとかhSeekとか出てるんだから、ちょっと考えれば
わからない？

大したコードじゃないよ。5行くらいで終わる。