Added ditto procedure.