Update p003.clj