Simpler, works
Using lots of R-isms