updated parser.r

reminder to refactor the do function...