sub current_line_is_the_kdkhost_line {
  m/^%KDKHost:/;
}

sub current_line_is_a_chapter_end {
  m!<</OutputType \(\)>>setpagedevice!;
}

sub current_line_starts_a_new_page {
  /%%BeginPageSetup/;
}

sub change_the_paper_output_tray {
  m!<</OutputType\(Stacker\)>>setpagedevice! and
  s/Stacker/top/;
}