Funy application of R