This is the "pure" variant of HScheme, no "set!" etc.
Pure Scheme Code: Content-Type: text/html; charset=utf-8 <? (define id-property (lambda (p) (rselect ((string-literal $result)) ((id p $result))) )) (define id-named-property (lambda (p) (map (lambda ((pid)) (linked-name pid)) (rselect ($pid) ((id p $pid))) ) )) (define id-name (name id)) ?> <HTML> <HEAD> <TITLE><?id-name?></TITLE> </HEAD> <BODY> <H1><?id-name?> (<?(id-named-property type-p)?>)</H1> <P><?(id-property comment-p)?></P> <UL> <? (map (lambda ((tid pid)) (list "<LI>" (linked-name tid) ": " (linked-name pid))) (rselect ($t $p) ((id $t $p)) )) ?> </UL> <UL> <? (map (lambda ((tid pid)) (list "<LI>" (linked-name tid) ", " (linked-name pid))) (rselect ($t $p) (($p $t id)) )) ?> </UL> <ADDRESS><P><?(id-named-property (rdfs "isDefinedBy"))?></P></ADDRESS> </BODY> </HTML> ID:
SoupServer | Interpret Scheme | rselect | Show Template