main = do
hSetBuffering stdout NoBuffering
s <- putStr "input te> " >> getLine
i <- randomRIO (1,3) :: IO Int
print $ janken s i