added p04.clj