ごめんだお!ぼくのやつこれで死んでしまったお!

main = print $ take 10 $ splitQ $ cycle "213?46464?698?"

http://ideone.com/aKJZ7v