-- |Changes the color channel of the tail of the turtle.
color_change :: Turtle -> String -> IO Turtle
color_change t "red"   = return t { color = rED      }
color_change :: Turtle -> String -> IO Turtle
color_change t "red"   = return t { color = rED      }
color_change t "red"   = return t { color = rED      }