import Distributions

model = do
  x <- sample $ normal 0.0 1.0
  ys <- Lazy $ sample $ list (repeat $ normal 0.0 1.0)
  return $ (x*x):(take 10 ys)

main = do
  y <- run_random (error "No alphabet!") False model
  putStrLn $ show y
