>>879
コードできた

>>878に以下のコード追加で動きます。
ありがとうございました。

jankenMain = do
hSetBuffering stdout NoBuffering
s <- putStr "input te> " >> getLine
i <- randomRIO (1,3) :: IO Int
let kekka = janken s i
if kekka == Aiko then jankenMain else print kekka

main = do
jankenMain