msysyamamoto

import System.Random
import System.Time
import Control.Monad.State

main :: IO ()
main = do
    seed <- mkSeed
    talk $ iSaid seed

mkSeed :: IO Int