ght :: Floating n
      => n              -- ^ Degree of turn
      -> TurtleState n  -- ^ Turtle to turn
      -> TurtleState n  -- ^ Resulting turtle
right d = turnTurtle (^-^ (d @@ deg))


right :: Floating n
      => n              -- ^ Degree of turn
      -> TurtleState n  -- ^ Turtle to turn
      -> TurtleState n
right d = turnTurtle (^-^ (d @@ deg))
right d = turnTurtle (^-^ (d @@ deg))