skliew

## create_avro_file.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Avro::Schema;
use Avro::DataFileWriter;

my $value = shift || "1234";
my $fn = shift || "0";

my $schema = Avro::Schema->parse(<<EOP);

## closconv.lhs
This is my short-ish tutorial on how to implement closures in
a simple functional language: Foo.

First, some boilerplate.

> {-# LANGUAGE DeriveFunctor, TypeFamilies #-}
> import Control.Applicative
> import Control.Monad.Gen
> import Control.Monad.Writer
> import Data.Functor.Foldable
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use Avro::Schema;
	use Avro::DataFileWriter;

	my $value = shift \|\| "1234";
	my $fn = shift \|\| "0";

	my $schema = Avro::Schema->parse(<<EOP);
	This is my short-ish tutorial on how to implement closures in
	a simple functional language: Foo.

	First, some boilerplate.

	> {-# LANGUAGE DeriveFunctor, TypeFamilies #-}
	> import Control.Applicative
	> import Control.Monad.Gen
	> import Control.Monad.Writer
	> import Data.Functor.Foldable