Create play2048.r

Play 2048 in ascii in your R console.  This is a standalone app