added current version of handy.R script