improve myprogram.R