Replace dolist with mapc to run faster