Vasarely PatternsProgram NotesThe opening of the piece is rather straightforward.
EOF
use Myke::Markov;
use Myke::Misc;
$text = file_as_scalar('notes_boac.txt');
$depth = 2;
$words = 200;
&Myke::Markov::build_word_hash($depth, $text);
@fws = &Myke::Markov::first_words($depth);
$fws[0] =~ s/^(\w)/uc($1)/e;
print join ' ', @fws;
print " ";
print join ' ', Myke::Markov::iterative_babble
($depth, $words, @fws);
print "\n";
print < |