position :: Position -> Direction -> Scalar -> Position
position (Position position) (Direction direction) speed =
  Position $ velocity + position
  where
    velocity = direction |* speed
position :: Position -> Direction -> Scalar -> Position
position (Position position) (Direction direction) speed =
  Position $ velocity + position
  where
    velocity = direction |* speed
position (Position position) (Direction direction) speed =
  Position $ velocity + position
  where
    velocity = direction |* speed