main :: IO ()
main = do
  m <- evalRandIO $ makeMachine

  let sim = iterate sampleMach m

  let out = putStrLn . show . map snd . summarizeComps . getTagAt "cc" [] . ms
            
  mapM_ out (take 100 sim)
main :: IO ()
main = do
  m <- evalRandIO $ makeMachine

  let sim = iterate sampleMach m

  let out = putStrLn . show . map snd . summarizeComps . getTagAt "cc" [] . ms
            
  mapM_ out (take 100 sim)
main = do
  m <- evalRandIO $ makeMachine

  let sim = iterate sampleMach m

  let out = putStrLn . show . map snd . summarizeComps . getTagAt "cc" [] . ms
            
  mapM_ out (take 100 sim)