my first little programs in R