Update p054.clj