Changed function -> procedure.