Fixe da few bucks with do-list-pog-fn and added a few more functions.