Create template: R cat shell