Script Cantor Set 130 char
I was looking for a shorter script than Juan Carlos Ponce Campuzano's version Script: Cantor Set.
Script (130 characters)
Execute(Join({"L1={Segment((0,0),(20,0))}"},Zip("L"+(k+1)+"=Dilate(Join(L"+k+",Reflect(L"+k+",x=30)),1/3,(0,-"+k+"-.5))",k,1..9)))