@prefix rdf:  <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
@prefix rep:  <http://id.ninebynine.org/wip/2002/ReportGen/> .
@prefix dc:   <http://purl.org/dc/elements/1.1/> .
@prefix protocol: <http://id.ninebynine.org/wip/2002/Protocols#> .
@prefix prep:     <http://id.ninebynine.org/wip/2002/Protocols/Report#> .

rep:GenReport a rep:Report ; :-
  ( [ rep:cmd rep:if ; 
      rep:defined "Output" ; 
      rep:do prep:HTMLReport ] ) .
   
prep:HTMLReport a rep:Report ; :-
  ( [ rep:cmd rep:open  ; 
      rep:file ( [ rep:var "Output" ] ".html" ) ]
    [ rep:cmd rep:if ; 
      rep:pattern prep:ThisPattern ;
      rep:do
        ( [ rep:cmd rep:write ; 
            rep:data prep:ThisHead ]
          [ rep:do  prep:GenProtoReport ]
          [ rep:cmd rep:write ; 
            rep:data prep:ThisFoot ] ) ;
      rep:else
        ( [ rep:cmd rep:write ; 
            rep:data prep:NoReport ] ) ]
    [ rep:cmd rep:close ; rep:chan "t" ]
  ) .

{ prep:s1 prep:p1 prop:o1 . } prep:r { prep:s2 prep:p2 prop:o2 . } .