day1

This is day 1, written for R