+complete.R, inocmplete.
complete untested.
fixed for loop condition.
commented debugs / submitted.
commented rm(list = ls())!!!; added submission source as comment.