RBasic_Revised: user-defined function under progress.