1. Ameise darf nur auf leeres Nachbarfeld laufen.
2. Ameise soll ein zufälliges solches Nachbarfeld betreten.
walk :: World -> Ant -> IO () walk w a = do d <- random ( 0, 7 ) atomically $ do a läuft_in_Richtung d