basic R
magic R