cool example of r loop working