count.R works, submitted