Symbol Plotting

Print[CharacterRange["数","斀"]];CharacterRange["⚐","⚜"]
Print[FromCharacterCode[Range[8592,8647,1]]];
FromCharacterCode[Range[8648,8703,1]]
tf=Table[{n*Cos[n/4],n*Sin[n/4]},{n,8703-8591}];
mf=ToString /@ CharacterRange["\[LeftArrow]","⇿"];
ListPlot[List /@tf,PlotMarkers->mf,
PlotStyle->"DarkBands",ImageSize->700]