-- |The default turtle state.
nEW_TURTLE :: IO Turtle
nEW_TURTLE = return
             $ Turtle { loc   = (0,0)
                      , color = bLACK
                      , image = listArray ((0,0,0),(499,499,3)) (repeat 255)
                      , comln = 1
                      }
nEW_TURTLE :: IO Turtle
nEW_TURTLE = return
             $ Turtle { loc   = (0,0)
                      , color = bLACK
                      , image = listArray ((0,0,0),(499,499,3)) (repeat 255)
                      , comln = 1
                      }
nEW_TURTLE = return
             $ Turtle { loc   = (0,0)
                      , color = bLACK
                      , image = listArray ((0,0,0),(499,499,3)) (repeat 255)
                      , comln = 1
                      }