Logyi, hajnalvédő lojikil

## Schema
book
 book_key
 title text
 author_key
 genre_join_key

author
 author_key
 author_name


## Hydra's compiler output HLAP
; (hydra@eval '(if (< 3 4) "yes" "no") *tlenv*)
_ : Pair = '((3 4) (3 3) (9) (29 2) (3 "yes") (27 1) (3 "no"))

(load 3)
(load 4)
(<)
(compare-and-jump 2) ; jump 2 if false
(load "yes")
(jump 1)
(load "no")

## micro-wget.pl
#!/usr/bin/env perl

# poor person's wget; enough to satisfy apt-cyg at least.
# works well enough to download OCaml via apt-cyg, so that's
# good enough for me.

use strict;
use LWP::Simple;

my($opt,$dest,$file,$rc);

## member0.c
/* compiler output */
SExp *member0_p (SExp *, SExp *);

SExp *
member0_p (SExp * x, SExp * l)
{
  SExp *ret = nil, *x2 = nil, *l3 = nil;
  int s1 = 1;
  while (s1)
  {

## gist:1131925
javascript:(function(){i=prompt("SRFI Number");window.location="http://srfi.schemers.org/srfi-"+i+"/srfi-"+i+".html";})()
	book
	book_key
	title text
	author_key
	genre_join_key

	author
	author_key
	author_name
	; (hydra@eval '(if (< 3 4) "yes" "no") tlenv)
	_ : Pair = '((3 4) (3 3) (9) (29 2) (3 "yes") (27 1) (3 "no"))

	(load 3)
	(load 4)
	(<)
	(compare-and-jump 2) ; jump 2 if false
	(load "yes")
	(jump 1)
	(load "no")
	#!/usr/bin/env perl

	# poor person's wget; enough to satisfy apt-cyg at least.
	# works well enough to download OCaml via apt-cyg, so that's
	# good enough for me.

	use strict;
	use LWP::Simple;

	my($opt,$dest,$file,$rc);
	/* compiler output */
	SExp member0_p (SExp , SExp *);

	SExp *
	member0_p (SExp * x, SExp * l)
	{
	SExp ret = nil, x2 = nil, *l3 = nil;
	int s1 = 1;
	while (s1)
	{