added p14.clj