$ include "seed7_05.s7i";
  include "getf.s7i";
  include "progs.s7i";

const proc: main is func
  local
    var string: source is "";
  begin
    source := lower(getf("CALENDAR.TXT"));
    source := replace(source, "dayofweek", "dayOfWeek");
    source := replace(source, "daysinmonth", "daysInMonth");
    execute(parseStri(source));
  end func;