(defn del-list [arg-list lvl] (
                                (cond
                                 (= lvl 1) (filter (comp not list?) arg-list)
                                 :else "wrong lvl"
                                )
                            ))
(println (del-list `(1 2 3 `(1 2 3) 1 2 3) 1) )