modified as procedure