>>33
getStdGenはIOモナドだけどtake 3 (randoms g)はモナドじゃないから
return (take 3 (randoms g))にしないとだめ。

main = getStdGen >>= return . take 3 . randoms >>= (print :: [Int] -> IO ())