xs <- sequence $ replicate 3 $ interleaveState get
の間違いか?
どっちにしても無理だろ