add new procedure random