如何在绘制关系图时使用曲线箭头？

假设我有一个关系图，以整数之间的因数关系举例：
ns = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10};
as = {1 \[DirectedEdge] 2, 1 \[DirectedEdge] 3, 1 \[DirectedEdge] 4,
1 \[DirectedEdge] 5, 1 \[DirectedEdge] 6, 1 \[DirectedEdge] 7,
1 \[DirectedEdge] 8, 1 \[DirectedEdge] 9, 1 \[DirectedEdge] 10,
2 \[DirectedEdge] 4, 2 \[DirectedEdge] 6, 2 \[DirectedEdge] 8,
2 \[DirectedEdge] 10, 3 \[DirectedEdge] 6, 3 \[DirectedEdge] 9,
4 \[DirectedEdge] 8, 5 \[DirectedEdge] 10};
GraphPlot[as, PlotTheme -> "ClassicDiagram",
DataRange -> {{0, 1}, {0, 1}}, GraphLayout -> "CircularEmbedding"]
我能画出顶点排列成一个圆形布局时的关系图，但其中的关系箭头是直线。

请问有没有办法画出类似下面这种弯曲的关系线？谢谢。