add procedure for-each