let makecave3 x y =
       connect_cave (makecave2 x y)