maps elements in list and finally appends all resulted lists.
(defun mappend (fn &rest lsts) "maps elements in list and finally appends all resulted lists." (apply #'append (apply #'mapcar fn lsts)))