Update p081.clj