problem 4 in clj