How many titles are there for the episode written by Tom Scharpling? 
CREATE TABLE "table1_25716401_1" (
  "no_in_series" real,
  "no_in_season" real,
  "title" text,
  "directed_by" text,
  "written_by" text,
  "original_air_date" text,
  "u_s_viewers_millions" text
);
SELECT COUNT("title") FROM "table1_25716401_1" WHERE "written_by"='Tom Scharpling';