r print