Gracie Gold wins short program, Wagner 4th