Update problem04.clj