DXF merge – files to layers

I need a LISP program to insert 2D objects (lines, arcs, polylines) from several DXF files into the current DXF file.
The DXF to be imported are in the root folder, i.e. same folder as the current DXF file.
Create a layer for each DXF file. Each layer should be named with the same name as the DXF file – exclude the file type. In each layer place the objects from each DXF file.
Join any objects (lines and arcs) that are not a polyline.