Add to_i procedure