* lift and reducep (clj version)