added write1_read1.R, which changes one input cell and reads one result cell